Bruge datagrid

ligger databasen på nettet eller på computeren?

Du kan trykke Ctrl + T (components) og sætte flueben ved "Microsoft Data Bound Grid Control 5.0 (SP3)" og så sætte den ind i formen (DBGrid1), og sætte en "Data" ind også.. (Data1)..
---
'Properties:
Data1.Connect = "Access" ' Eller andet som du vælger ud fra listen
Data1.DatabaseName = "C:\mappe\fil.mdb" ' Eller din sti, med din .ext
Data1.RecordSource = "mainTable" ' Eller hvad din table end hedder

DBGrid1.DataSource = "Data1" ' Eller hvad du nu kaldte din "Data"...

---

Så kommer der en fin lille table frem, som viser alle dine records i sådan en tabel som du ønsker.. Men det gælder så hvis du har databasen liggende på computeren.. Jeg har ikke leget med databaser på nettet gennem VB før, så hvis den gør det, kan jeg desværre ikke hjælpe... :/

Håber du kan bruge svaret.. :)

// WebPsycho

Hov glemte at vise min kode



Private Sub cmdIinsert_Click()
'STARTER FORBINDELSE TIL MYSQL DATABASE
Set objConn = CreateObject("ADODB.Connection")
Set ObjRs = CreateObject("ADODB.RecordSet")
Dim strConn As String
strConn = "DRIVER={MySQL ODBC 3.51 DRIVER};" _
            & "SERVER=localhost;" _
            & "DATABASE=c;" _
            & "UID=root;" _
            & "PWD=xxxxx;"
'SÆTTER VARIABLEN strSQL
Dim strSQL As String

'SÆTTER VARIABLEN navn
Dim navn As String
'Giver navn værdi
navn = Text1.Text

'giver strSQL EN VÆRDI
strSQL = "INSERT INTO `bruger` ( `id` , `bruger` )VALUES ('', '" & navn & "')"


objConn.ConnectionString = strConn
objConn.Open

If Text1.Text = "" Then
    MsgBox ("Du skal sætte et navn ind")
   
Else
    Set ObjRs = objConn.Execute(strSQL)
End If

   

Text1.Text = ""

End Sub



Private Sub Form_Load()

End Sub

Private Sub seeRes_Click()
'Forbindelse til MySQL start
Set objConn = CreateObject("ADODB.Connection")
Set ObjRs = CreateObject("ADODB.RecordSet")
Dim strConn As String
strConn = "DRIVER={MySQL ODBC 3.51 DRIVER};" _
            & "SERVER=localhost;" _
            & "DATABASE=c;" _
            & "UID=root;" _
            & "PWD=xxxxx;"
           
Dim strSQL As String
strSQL = "SELECT * FROM Bruger"

objConn.ConnectionString = strConn
objConn.Open
Set ObjRs = objConn.Execute(strSQL)
'Forbindelse til MySQL Slut


List1.Clear
Do
    List1.AddItem ObjRs("bruger")
    ObjRs.MoveNext
Loop While Not ObjRs.EOF

End Sub



I stedet for listbox skal det ud i et datagrid

webpsyko--> Jeg har ikke den komponent du snakker om ??

hmm.. det var underligt, fordi jeg kan ikke huske at jeg har downloadet den.. nå.. men du kan ellers hente den her, hvis det skulle være: http://www.zerohack.it/downloads/components/dbgrid32.zip

Jeg får flg fejl når jeg prver at bruge den

License informatation for this component not found, you do no have an appropriate licens to use this functinallity in the design envoirment

ok.. prøv at bruge denne her istedet: http://www.martin2k.co.uk/vb6/ocxs/dbgrid32.zip

Tak den virkede, men så til kode nu

I stedet for den her
List1.Clear
Do
    List1.AddItem ObjRs("bruger")
    ObjRs.MoveNext
Loop While Not ObjRs.EOF

End Sub

Kan jeg så bruge dbgrid i stedet, og hvordan ?

du kan bare bruge "Data"en istedet ;)

svar...