FatemehB
چهارشنبه 12 مرداد 1384, 11:55 صبح
سلام
من می خواهم با استفاده از کد زیر از رکوردست objRst استفاده کرده و و رکوردهای موجود در آن را به یک Table وارد کنم .
لطفا کمک کنید
Private Const SQLOLEDB = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=Data"
Dim objCnn As New ADODB.Connection
Dim objCmd As New ADODB.Command
Dim objRst As New ADODB.Recordset
Dim objCnn1 As New ADODB.Connection
Dim objCmd1 As New ADODB.Command
Dim objRst1 As New ADODB.Recordset
objCnn.Open SQLOLEDB
objCmd.ActiveConnection = objCnn
objCmd.CommandType = adCmdTable
objCmd.CommandText = "T
Set objRst = objCmd.Execute
objCnn1.Open SQLOLEDB
objCmd1.ActiveConnection = objCnn1
objCmd1.CommandType = adCmdTable
objCmd1.CommandText = "tt"
objRst1.LockType = adLockOptimistic
objRst1.Open SQLOLEDB
اگر کسی برنامه نمونه دارد ممنون میشوم برایم بفرستد.
من می خواهم با استفاده از کد زیر از رکوردست objRst استفاده کرده و و رکوردهای موجود در آن را به یک Table وارد کنم .
لطفا کمک کنید
Private Const SQLOLEDB = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=Data"
Dim objCnn As New ADODB.Connection
Dim objCmd As New ADODB.Command
Dim objRst As New ADODB.Recordset
Dim objCnn1 As New ADODB.Connection
Dim objCmd1 As New ADODB.Command
Dim objRst1 As New ADODB.Recordset
objCnn.Open SQLOLEDB
objCmd.ActiveConnection = objCnn
objCmd.CommandType = adCmdTable
objCmd.CommandText = "T
Set objRst = objCmd.Execute
objCnn1.Open SQLOLEDB
objCmd1.ActiveConnection = objCnn1
objCmd1.CommandType = adCmdTable
objCmd1.CommandText = "tt"
objRst1.LockType = adLockOptimistic
objRst1.Open SQLOLEDB
اگر کسی برنامه نمونه دارد ممنون میشوم برایم بفرستد.