help with changing code from access to mysql database

[psycho007]

Hi

I have a caller ID software that I would like to change from Microsoft Access database to Mysql and was wondering if somebody could help me. The code i currently have is:

[code=vb6]

Private Sub OpenDataBase()
Set fo = New FileSystemObjec t
Set wrk = CreateWorkspace ("", "admin", "", dbUseJet)
If Not fo.FileExists(m _stDataPath & "callerid.m db") Then
Set db = wrk.CreateDatab ase(m_stDataPat h & "callerid.m db", dbLangGeneral)
CreatePhoneDB
Else
Set db = wrk.OpenDataBas e(m_stDataPath & "callerid.m db")
End If
Set rs = db.OpenRecordse t("PhoneCalls ", dbOpenTable)
End Sub
Private Sub CloseDatabase()
db.Close
wrk.Close
Set db = Nothing
Set wrk = Nothing
Set fo = Nothing
End Sub
Private Sub AddRecord()
Dim lID As Long
Select Case Len(frmLineInfo .Number.Text)
Case 0
frmLineInfo.Num ber.Text = "No Number"
Case 1
Select Case frmLineInfo.Num ber.Text
Case "O"
frmLineInfo.Num ber.Text = "Unavailabl e"
frmLineInfo.Cal lName.Text = "Unavailabl e"
Case "P"
frmLineInfo.Num ber.Text = "Blocked"
frmLineInfo.Cal lName.Text = "Blocked"
End Select
End Select
Select Case Len(frmLineInfo .CallName.Text)
Case 0
frmLineInfo.Cal lName.Text = "-"
Case 1
Select Case frmLineInfo.Cal lName.Text
Case "O"
frmLineInfo.Cal lName.Text = "Unavailabl e"
Case "P"
frmLineInfo.Cal lName.Text = "Blocked"
End Select
End Select
With rs
If (.RecordCount > 0) Then
.MoveLast
lID = .Fields("id") + 1
Else
lID = 1
End If
.AddNew
.Fields("id") = lID
.Fields("dateti me") = Now
.Fields("number ") = frmLineInfo.Num ber.Text
.Fields("name") = frmLineInfo.Cal lName.Text
.Update
End With
End Sub
Private Function CreatePhoneDB() As Recordset
Dim tbl As TableDef
Set tbl = db.CreateTableD ef("PhoneCalls" )
With tbl
.Fields.Append .CreateField("i d", dbLong, 4)
.Fields.Append .CreateField("d atetime", dbDate, 4)
.Fields.Append .CreateField("n umber", dbText, 20)
.Fields.Append .CreateField("n ame", dbText, 20)
db.TableDefs.Ap pend tbl
End With
Set db = wrk.OpenDataBas e(m_stDataPath & "callerid.m db")
Set tbl = db!phonecalls
Set idx = tbl.CreateIndex ("DateTime")
idx.Fields.Appe nd idx.CreateField ("datetime")
tbl.Indexes.App end idx
End Function


[/code]

[debasisdas]

try to use ADODB library for the purpose.

[psycho007]

Sorry im a php coder not a VB6 coder. I was wondering if you could be a little more specific? any links for this would be appreciated.

Thanks

[debasisdas]

you mean to say all the code you have posted is in PHP ?

why you have posted the question here , why not in PHP forum ?

[psycho007]

no the code is vb6 no php. the vb6 code needs changing from a access database to mysql database