sqls:
Dim mrs As New ADODB.Recordset
Dim msql As String
Sub AddBooks(BookID As String, ISBN As String, Title As String, Author As String, Category As String, Publisher As String, Date_Acquired As String, NoOfCopies As String, bSection As String, CreatedBy As String, DateAdded As String, DateModify As String, LastModifyBy As String)
If rs.State = adStateOpen Then rs.Close
sql = "Select * From BooksInfo Where...
denvermuseka
Last Activity: Nov 28 '11, 07:36 AM
Joined: Nov 18 '11
Location:
-
sqls:
Dim mrs As New ADODB.Recordset
Dim msql As String
Sub AddBooks(BookID As String, ISBN As String, Title As String, Author As String, Category As String, Publisher As String, Date_Acquired As String, NoOfCopies As String, bSection As String, CreatedBy As String, DateAdded As String, DateModify As String, LastModifyBy As String)
If rs.State = adStateOpen Then rs.Close
sql = "Select * From BooksInfo Where...Leave a comment:
-
VB 6 Code producing an error...
If Trim(Text4) = "" Then
clsbooks.Search BooksFrm lstBooks, ""
Else
clsbooks.Search BooksFrm lstBooks, Text4.Text
End If
'the code produces an error written:
Run-time error 424
Object Required -
Public rs As New ADODB.Recordset
Public conn As New ADODB.Connectio n
Public sql As String
Public ConString As String
Public CurrentUser As String
Public LoginSuccess As Boolean
Public UserTitle As String
Public TempBorrowerID As String
Public TempBorrowerNam e As String
Public TempBookID As String
Public TempBookName As String
Public TempBookCopy As String
Public TempCopyBorrow...Leave a comment:
-
VB System Database Error
this is the error i get when i want to search for info in my system:
run-time error '-2147217904 (80040e10)':
no value given for one or more required parameters.
this is the code..... please help.....
[rs.Open sql, conn 'this is where the error is!!!!
lstBooks.ListIt ems.Clear
Do While Not rs.EOF
a = a + 1
Set lstItem = lstBooks.ListIt ems.Add(, , a, 1, 1)
...
No activity results to display
Leave a comment: