ناهید
سه شنبه 20 بهمن 1383, 08:40 صبح
سلام
من از دستورلت زیر برای برقراری ارتباط با یک db که تو محیط sql ساخته شده استفاده می کنم :
Dim s As String
Dim cn As Connection
Dim db As Database
Dim rs As Recordset
s = "SELECT name From ostan"
Set cn = New Connection
cn.CursorLocation = adUseClient
cn.ConnectionTimeout = 60
cn.Open ("Provide0r=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=hesab;Data Source=RAHILAM-TK4Y4VJ")
Set rs = New Recordset
ولی پیغام خطای زیر را می ده:
multiple_step oledb operration error .check each oledb status value ,if avelabel.no work was done.
من از دستورلت زیر برای برقراری ارتباط با یک db که تو محیط sql ساخته شده استفاده می کنم :
Dim s As String
Dim cn As Connection
Dim db As Database
Dim rs As Recordset
s = "SELECT name From ostan"
Set cn = New Connection
cn.CursorLocation = adUseClient
cn.ConnectionTimeout = 60
cn.Open ("Provide0r=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=hesab;Data Source=RAHILAM-TK4Y4VJ")
Set rs = New Recordset
ولی پیغام خطای زیر را می ده:
multiple_step oledb operration error .check each oledb status value ,if avelabel.no work was done.