[أبو عمر]

PHP كود :

Option Explicit
'=============================
'VB4ARAB.COM
' Created By Lion_Ksa
'2015
'Note:
'If you have SQL EXPRESS you need use .\SQLEXPRESS
'Or severname\SQLEXPRESS;
'If EnterPRISE etc use only .\;
'Or servername;
'Good luck
'=============================
Public db As New ADODB.Connection
Public Rs As New ADODB.Recordset
Private Sub Command1_Click()
If db.State Then db.Close
With db
.Open "PROVIDER=MSDataShape;" & _
"Data Provider=SQLOLEDB.1;" & _
"Data Source=.\SQLEXPRESS;" & _
"Initial Catalog=master;" & _
"Integrated Security=SSPI;Persist Security Info=true;" & _
"User ID=;" & _
"Password=;" & _
" providerName=System.Data.SqlClient"
End With
Rs.Open "MSreplication_options", db, 1, 3
MsgBox Rs.RecordCount
End Sub 


المثال مرفق
   

  SQL-Connection.zip (الحجم : 33.34 ك ب / التحميلات : 232)
دعواتك