Dakle moze li neko da mi pomogne kako da vezem bazu podataka iz Excela ili Accessa sa VB aplikacijom. Da pisem i iscitavam podatke iz celija ili bar okacite neki jednostavan primer pa cu iz njega ostalo nauciti. Hvala
Kako vezati bazu sa VB aplikacijom
Zaključano
Zakačeno
Excel nije baza podataka tako da ti se to ne uklapa u pitanje (pristup je sasvim drugaciji).
Za Access mozes koristiti ADO za koji postoje uputstva koja je jos degojs radio (bilo ranije u TOP temama, vidi da li je josh uvek).
Za Excel moras imati instaliran Excel na tom racunaru i da koristis njegov objektni model (Project > References pa dodas). Imas vise primera ovde na forumu.
Za Access mozes koristiti ADO za koji postoje uputstva koja je jos degojs radio (bilo ranije u TOP temama, vidi da li je josh uvek).
Za Excel moras imati instaliran Excel na tom racunaru i da koristis njegov objektni model (Project > References pa dodas). Imas vise primera ovde na forumu.
Znam da excel nije baza podataka, ali znam da moze da se koristi za cuvanje i iscitavanje podataka iz nje pa meni to isto dodje.
Ovaj sam kod preradio za svoje potrebe, probaj sa ovim:
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
Dim sconn As String
rs.CursorLocation = adUseClient
rs.CursorType = adOpenKeyset
rs.LockType = adLockBatchOptimistic
sconn = "DRIVER=Microsoft Excel Driver (*.xls);" & "DBQ=" & sFile
rs.Open "SELECT * FROM [sheet1$]", sconn
Set Read_Excel = rs
Set rs = Nothing
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
Dim sconn As String
rs.CursorLocation = adUseClient
rs.CursorType = adOpenKeyset
rs.LockType = adLockBatchOptimistic
sconn = "DRIVER=Microsoft Excel Driver (*.xls);" & "DBQ=" & sFile
rs.Open "SELECT * FROM [sheet1$]", sconn
Set Read_Excel = rs
Set rs = Nothing
Potpis
steve585