nahve connect shodan be db mojod dar server

[abbaspour]

ba salam khedmate mohandesine mohtaram,
soale man:
man mikham sql ro roye shabake set konam .yani ye barname ba vb daram ke bayad data hasho az banke sqle servere shabake bekhone. ye teke barname ham daram ke fekr mikardam agar adresse server ro bedam betoone peydash kone vali nashod. age
momkene baram editesh konid ya begid bayad chikar konam.merci
Public Sub OpenDB()
Set db = New ADODB.Connection
db.CursorLocation = adUseServer
db.ConnectionString = server
db.Open "Provider=SQLOLEDB;Data Source=192.168.111.1,1433;Network Library=DBMSSOCN;Initial Catalog=mali;Integrated Security=SSPI;"
End Sub

[ASKaffash]

سلام
Provider را به شکل ذیل اصلاح کنید :


Public Sub RunSQL(ByVal YourConnectionString As String, ByVal YourSQL As String)
Dim TmpCon As New ADODB.Connection
TmpCon.Open YourConnectionString
TmpCon.Execute YourSQL
TmpCon.Close
End Sub


وبه شکل ذیل استفاده کنید :



Public Sub OpenDB()
Call RunSQL("Provider=SQLOLEDB.1;Password=YourPass;Persist Security Info=True;User ID=YourUser;Initial Catalog=YourDB;Data Source=YourServer", "YourSQL")
End Sub

[abbaspour]

merci,vali man taze shoru kardam va nemidoonam be jaye"YourConnectionString"va
yoursql chi bezarm
merci.

[ASKaffash]

با سلام
این مثال را نگاه کنید :


Public Sub OpenDB()
Call RunSQL("Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;User ID=YourUser;Initial Catalog=CSharpEngine;Data Source=.", "Select * From Prs_Person Where C_Chart=1")
End Sub
Public Sub RunSQL(ByVal YourConnectionString As String, ByVal YourSQL As String)
Dim TmpCon As New ADODB.Connection
TmpCon.Open YourConnectionString
TmpCon.Execute YourSQL
TmpCon.Close
End Sub