Merhaba Arkadaşlar bul duğum bir örnekte vb ile sql bağlatı anlatımış
bizde sql bu şekilde bağlanıp tablolarla işlem yapabilirmiyiz
Dim ConnObj As New ADODB.Connection
Dim ConnObj2 As New ADODB.Connection
Dim RsObjDB As New ADODB.Recordset
Dim RsObjTBL As New ADODB.Recordset
Dim RsObjFLD As New ADODB.Recordset
Private Sub Form_Load()
Sunucu = "(Local)"
DBase = "master"
UserName = "SA"
PassWord = "SA"
ConnObj.Open "Driver=SQL Server;Server=" & Sunucu & ";User ID= " & UserName & " ;Password= " & PassWord & ";Database=" & DBase & ""
Set RsObjDB = ConnObj.Execute("SELECT name FROM sysdatabases ORDER BY name ")
While Not RsObjDB.EOF
s = s + 1
Call TreeView1.Nodes.Add(, , "V" & s, RsObjDB("name"), 1)
ConnObj2.Open "Driver=SQL Server;Server=" & Sunucu & ";User ID= " & UserName & " ;Password= " & PassWord & ";Database=" & RsObjDB("Name") & ""
Set RsObjTBL = ConnObj2.Execute("Select Name,id From sysobjects Where xtype='U' order by name")
While Not RsObjTBL.EOF
t = t + 1
Call TreeView1.Nodes.Add("V" & s, tvwChild, "T" & t, RsObjTBL("name"), 2)
Set RsObjFLD = ConnObj2.Execute("Select Name From syscolumns Where id=" & RsObjTBL("id") & " order by name")
While Not RsObjFLD.EOF
f = f + 1
Call TreeView1.Nodes.Add("T" & t, tvwChild, "F" & f, RsObjFLD("name"), 3)
RsObjFLD.MoveNext
Wend
Set RsObjFLD = Nothing
RsObjTBL.MoveNext
Wend
ConnObj2.Close
RsObjDB.MoveNext
Wend
ConnObj.Close
End Sub
bizde sql bu şekilde bağlanıp tablolarla işlem yapabilirmiyiz