Public Sub main()
Open App.path & “/connection.urs” For Input As #1
Input #1, serverhost
Input #1, mydatabasename
Input #1, myusername
Input #1, mypassword
Input #1, mysqlport
Close #1

cn.ConnectionString = “Driver={MySQL ODBC 5.1 Driver};Server=”&serverhost&”;Port=”&mysqlport&”;Database=”&mydatabasename&”;Password=”&mypassword&”;Option=3;”
cn.Open
Debug.Print “Connection Object Created”

If cn.State = adStateClosed Then
MsgBox “unable to connect to database”, vbCritical
Exit Sub
End If
cn.CursorLocation = adUseClient
endsub
End Sub

Public Function openrecordset(YourQuery As String)
If rs.State = 0 Then rs.Open YourQuery, cn, adOpenDynamic, adLockBatchOptimistic
End If
End Function

Public Function closerecordset()
If rs.State = 1 Then rs.Close
End Function
Public Function ConnectionDetails(Server As String, DatabaseName As String, Username As String, Password As String, Port As Integer)
Open App.path & “/connection.urs” For Output As #1
Print #1, Server
Print #1, DatabaseName
Print #1, Username
Print #1, Password
Print #1, Port
Close #1
End Function

Which reminds me; anyone know of a source for good comparisons of the MODI iFilter compared to the likes of iFilterShop or Captaris?

TIA!

John Croson
http://www.croson.us
pcnorb.homelinux.org
ihbsonline.com

Then, it is logical to push all the data from our input form to the recordset and update it so as the data gets stored in our database. Let me show you how to do it.

#1
rstable(0)=txtsomething.text

“(0)” represents the column it is referring to. “0″ is the index. It starts from 0 to number of fields in database minus 1 (n-1).

Lets say we have got 5 fields, so it will start from 0 to 4

#2
We can also use the below method which i prefer.

rstable(“fieldname”)=txtsomething.text

This is more meaningful. We can understand what is going on and our code becomes more readable.

The last step for adding new record is rstable.update

Now we are done with adding new record.

Deleting a record is simple. Use any method (record navigation, search or filter) for going to a record, then on your delete button (that is what i use normally), use rstable.delete

That’s it
Note: I have not tried the codes in my comment right now. It was some time back. So test it and let me know. And btw, the codes in the tut work well.