Need help in MSACCESS using VB6

[Kazekage]

---

Maayong adlaw, mangayo unta ko tambag on how I could insert data (gikan sa text file) on a MS Access table using VB6? So far mao ni code akoa gigamit but dili jud makuha...kabalo nako maka-import ug comma-delimited or space de-limited text file...ang ako source text file kay log file from Reflection...

Private Sub WriteData()
Dim Con As ADODB.Connection
Dim RecSet As ADODB.Recordset
Dim strBSC, strBTS, strEUM As String


Set Con = New ADODB.Connection
Con.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=F:\XOpt\XOptDB.mdb;"

Set RecSet = New ADODB.Recordset
RecSet.LockType = adLockOptimistic
RecSet.Open "tbl_ZEQOTest", Con

If strBSCName <> "" Then
Do
'RecSet.Fields("BSCName") = strBSCName
RecSet.Fields("BSCName").Value = strBSCName
'RecSet.AddNew("BSCName", strBSCName) = strBSCName
'RecSet.Fields.Update
Loop Until RecSet.EOF
End If


RecSet.Close
Set RecSet = Nothing

Con.Close
Set Con = Nothing


End Sub

Thanks kaayo daan...Happy New Year

[dlanyer77]

do you mean "text file" to "msaccess" using vb6?

[CollectingSouls]

Maayong adlaw, mangayo unta ko tambag on how I could insert data (gikan sa text file) on a MS Access table using VB6? So far mao ni code akoa gigamit but dili jud makuha...kabalo nako maka-import ug comma-delimited or space de-limited text file...ang ako source text file kay log file from Reflection...

Private Sub WriteData()
Dim Con As ADODB.Connection
Dim RecSet As ADODB.Recordset
Dim strBSC, strBTS, strEUM As String


Set Con = New ADODB.Connection
Con.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=F:\XOpt\XOptDB.mdb;"

Set RecSet = New ADODB.Recordset
RecSet.LockType = adLockOptimistic
RecSet.Open "tbl_ZEQOTest", Con

If strBSCName <> "" Then
Do
'RecSet.Fields("BSCName") = strBSCName
RecSet.Fields("BSCName").Value = strBSCName
'RecSet.AddNew("BSCName", strBSCName) = strBSCName
'RecSet.Fields.Update
Loop Until RecSet.EOF
End If


RecSet.Close
Set RecSet = Nothing

Con.Close
Set Con = Nothing


End Sub

Thanks kaayo daan...Happy New Year

Try this, replace the Bold statement with this one:

RecSet.Open "SELECT * FROM tbl_ZEQOTest", Con

and also place this code RecSet.AddNew("BSCName", strBSCName) = strBSCName
after the Do

why dont you use the INSERT INTO sql command instead?, you are using ADODB.


recset.open "INSERT INTO tbl_ZEQOTest VALUES('" & strBSCName & "')",con

[Kazekage]

Thanks kaayo collectingsouls, ako ni i-try once naa na ko time .... thanks kaayo