VB6 adodb + Listview + Access part1

You can also like my page on facebook / tutorzick
Sub LoadData()
Dim list As ListItem
Dim X As Integer
ConnectDB1
rs.Open "Select * from Information", db, 3, 3
Do Until rs.EOF
Set list = ListView1.ListItems.Add(, , rs(0))
For X = 1 To 7
list.SubItems(X) = rs(X)
Next X
rs.MoveNext
Loop
Set rs = Nothing
db.Close: Set db = Nothing
Public Sub ConnectDB()
path = App.path & "\transactions.mdb"
db.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source = " & path
End Sub

[@pakalupepito1330]

Napakalaking tulong po maraming salamat sir!

[@t3nkyu]

@jmoclassic08 yup.. pero ung tutorial na ito ay para lang sa Listview+Acess

[@cherrymaecalmadora3506]

hahahaah i got it.tnx. you didnot show the Ado connection access to vb6 but i knew it.tnx.

[@khelasis6716]

Thank You so much bro ! Great help

[@aljosibugan1345]

sana may Daily Time Record din na tutorial 🙂

[@marjopardo7242]

wow. pinoy. nice

[@gatyi28]

nice tutorial thx man it help me a lot :)

[@anthoniefenycatalan3372]

salamat po sa tutorial !

[@qbinhyoutebehome]

THank...!

[@0hSangwoo]

nakatulong po sa akin to :)) salamat.

[@danielcariaso538]

for assessment and evaluation process of enrollment poh.

[@danielcariaso538]

pano poh ba iblock ung rows nang database kapag naload na po sya sa form habang nakarun ung program, about acquiring prerequisite subjects poh for next semester and knowing the student status.

[@mslanggamgt5928]

ok kung d mkita, ang ilalagay na path ng pla yung location ng mdb

[@t3nkyu]

@data08justin uupload ko ung part 2 as soon as possible.. busy kasi sa work

[@GDragon2103]

Thanks you. :-bd

[@merrwincerkis7449]

bkt laging type mismatch sken khit tama naman lhat ng kinopya ko

[@clumssiemee3654]

public db as new adodb.connection bkit walang lumalabas na adodb.connection
d po ba pwedeng public db as connection????

[@basavarajwajantri6882]

how do i store data from listview to ms access in vb6.0

[@scipics]

yes gumana din salamat

[@vAMFiXED]

index out of bounds :( whats that means?

[@dhel9004]

Run time Error di gumagana sakin to ow .. >> db.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source = " & path please Help ! Super Need kasi :((

[@junebryanelarco9353]

Public Sub ConnectDB()
path = App.path & "\transactions.mdb" db.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source = " & path
end sub
ito yung sa akin!..
Public Sub ConnectDB()
db.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Saint Dominic Database\Installer\Saint Dominic Sub-parish.mdb;Persist Security Info=False"
End Sub
Palitan lng ang source kung saan naka

[@mslanggamgt5928]

di ko po makit yung dulo data source; "&" ??????

[@balupamz]

Friend, it shows INVALID PROPERTY on list.Subitems(x)=rs(x)
Plz help

[@davencorvera5580]

ERROR compiler error Sub or Function not define in ConnectDB

[@beatyow]

Magturo ka ng sarili mo .. buti nga sya nakakatulong e.

[@jmoclassic08]

pwede naman rekta sa database eh !!

[@raicejohntangub1112]

di poba pwede adodc ang gmitin q sa pag connect ng listview?
d ko kase ma intindihan ung codes mo. hahahah pasensya na bagohan palang
ako sa vb6.

[@NZRoads]

pede ba mag compute sa listview table??

[@t3nkyu]

@vAMFiXED ilan po ba ung data fields mo?

[@taichoukirito1796]

Bakit po lumalabas "Invalid use of Null" sa part po ng list.SubItems(X) = rs(X)

[@zickgamingify]

It's because you don't have available data in your listview or access. You can watch the second part

[@ailyncunanan5049]

nd ko po napa2 run bqt po kya??

[@MrBuising]

anung os gamit nyo???

[@vAMFiXED]

@t3nkyu
you mean that it depends on how fields you created? ..
what does this means?
Integer ConnectDB1 rs.Open "Select * from Information", db, 3, 3
ON THE last .. "db,3,3"?
3 rows and 3 column?
by the way .. thanks for your tutorial!
please make more :D

[@leojomarreyes2789]

ano ung ibig sabihin ng (db,3,3)
??

[@mslanggamgt5928]

mapakaangas sir

[@anthoniefenycatalan3372]

Public Sub connectdb()
path = App.path & "\sample.mdb"
db.Open "Provider=MICROSOFT.JET.OLEDB --- pwede po ilagay young ka sumpay salamat po"
End Sub

[@t3nkyu]

@jmoclassic08 ok :) noob kung noob..

[@Ox_OJ]

ang bilis naman masyado :)

[@t3nkyu]

Sorry Nauuna ung Salita :))

[@scipics]

not working un code mo
db.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source = " & Path
ano kasunod niyan

[@kareng4120]

Did you get help

[@bosscheng549]

Data Source = " & App.path & "\ DATABASENAME.mdb;"
Yan po kasunod nyan. Caps lock DATABASENAME yan po ang database name nyo.