access vb ile sql bağlantısı

[pcman]

Merhaba Arkadaşlar bul duğum bir örnekte vb ile sql bağlatı anlatımış

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

 

[pcman]

bu örnektede bir bağlantı var

Sub AAAAA()
Set con = New ADODB.Connection
strconn = "PROVIDER=SQLOLEDB;DATA SOURCE=" & baglantiIP & ";DATABASE=" & datebase & ";Auto Translate=False;user id=" & UserName & ";password=" & userpass & ";trusted_connection=False"
con.ConnectionString = strconn

On Error Resume Next
con.Open

If con.State <> 0 Then
MsgBox ("Baglant&#305; Ba&#351;ar&#305;l&#305;.")
Else
MsgBox ("Ba&#287;lant&#305;da Sorun Var.")
End If

End Sub