vali82
پنج شنبه 23 اردیبهشت 1389, 09:40 صبح
باسلام
من یک برنامه دارم می نویسم که بانک اطلاعاتی اون اکسس هست و قتی می خوام باهاش ار تباط برقرار بکنم خطا زیرو میده .
کد :
Public Sub Insert(ByVal VIp As Integer, ByVal VUName As String, ByVal VUser As String, ByVal VPass As String, ByVal VManeg As Integer, ByVal VTArikh As Integer, ByVal VTaid As Integer, ByVal VGozar As Integer, ByVal VNomrat As Integer)
Set Cmd = New ADODB.Command
Set Rst = New ADODB.Recordset
Connect
Cmd.ActiveConnection = Conn
Cmd.CommandType = adCmdText
Cmd.CommandText = "Insert Into tblKar (ip,uname,user,pass,maneg,tarihk,taid,gozar,nomrat )Values(@ip,@uname,@user,@pass,@maneg,@tarihk,@tai d,@gozar,@nomrat)"
Cmd.Parameters.Refresh
Cmd.Parameters.Item(0).Value = VIp
Cmd.Parameters("@uname").Value = VUName
Cmd.Parameters("@user").Value = VUser
Cmd.Parameters("@pass").Value = VPass
Cmd.Parameters("@maneg").Value = VManeg
Cmd.Parameters("@Tarikh").Value = VTArikh
Cmd.Parameters("@taid").Value = VTaid
Cmd.Parameters("@gozar").Value = VGozar
Cmd.Parameters("@nomrat").Value = VNomrat
Rst.CursorType = adOpenKeyset
Rst.CursorLocation = adUseClient
Set Rst = Cmd.Execute
End Sub
من یک برنامه دارم می نویسم که بانک اطلاعاتی اون اکسس هست و قتی می خوام باهاش ار تباط برقرار بکنم خطا زیرو میده .
کد :
Public Sub Insert(ByVal VIp As Integer, ByVal VUName As String, ByVal VUser As String, ByVal VPass As String, ByVal VManeg As Integer, ByVal VTArikh As Integer, ByVal VTaid As Integer, ByVal VGozar As Integer, ByVal VNomrat As Integer)
Set Cmd = New ADODB.Command
Set Rst = New ADODB.Recordset
Connect
Cmd.ActiveConnection = Conn
Cmd.CommandType = adCmdText
Cmd.CommandText = "Insert Into tblKar (ip,uname,user,pass,maneg,tarihk,taid,gozar,nomrat )Values(@ip,@uname,@user,@pass,@maneg,@tarihk,@tai d,@gozar,@nomrat)"
Cmd.Parameters.Refresh
Cmd.Parameters.Item(0).Value = VIp
Cmd.Parameters("@uname").Value = VUName
Cmd.Parameters("@user").Value = VUser
Cmd.Parameters("@pass").Value = VPass
Cmd.Parameters("@maneg").Value = VManeg
Cmd.Parameters("@Tarikh").Value = VTArikh
Cmd.Parameters("@taid").Value = VTaid
Cmd.Parameters("@gozar").Value = VGozar
Cmd.Parameters("@nomrat").Value = VNomrat
Rst.CursorType = adOpenKeyset
Rst.CursorLocation = adUseClient
Set Rst = Cmd.Execute
End Sub