ignore the winsock parts in the code...
if u dont understand anything i ll explain
Dim s As String
Dim con As New ADODB.Connection
Dim rs As New ADODB.Recordset
Winsock1(Index).GetData s, vbString
db = Split(s, "~~")(0)
op = Split(s, "~~")(1)
roll = Split(s, "~~")(2)
nam = Split(s, "~~")(3)
marks = Split(s, "~~")(4)
If op = "add" Then
If db = "oracle" Then
con.Open orastr, "adi", "adi"
Dim a As String
a = "insert into student values (" & roll & "," & nam & "," & marks & ")"
rs.Open a, con
con.Close
Winsock1(Index).SendData ("Success")
ElseIf db = "access" Then
con.Open accstr
Dim ab As String
ab = "insert into student values ('" & roll & "','" & nam & "','" & marks & "')"
rs.Open ab, con
con.Close
Winsock1(Index).SendData ("Success")
End If
ElseIf op = "delete" Then
If db = "oracle" Then
con.Open orastr, "adi", "adi"
Dim abc As String
abc = "delete from student where roll=" & roll
rs.Open abc, con
con.Close
Winsock1(Index).SendData ("Success")
ElseIf db = "access" Then
con.Open accstr
Dim abcd As String
abcd = "delete from student where roll=" & roll
rs.Open abcd, con
con.Close
Winsock1(Index).SendData ("Success")
End If
ElseIf op = "view" Then
If db = "oracle" Then
con.Open orastr, "adi", "adi"
rs.Open "select * from student", con
Winsock1(Index).SendData (rs)
con.Close
ElseIf db = "access" Then
con.Open accstr
rs.Open "student", con
' Winsock1(Index - 1).SendData rs
Winsock1(Index).SendData (rs)
'Winsock1(Index + 1).SendData rs
con.Close
End If
End If
