Vb & Mysql

http://eksperten.dk/spm/447553

Ja det har jeg læst, men forstår ikke rigtig koden der..

Skal jeg have nogen referencer tilføjet ?

og dog, jeg forstår godt selve koden, men er nok mere i tvivl mhh til referencer og hvilke datacomponent jeg skal bruge, kender du ikke et toturial på nettet omkrine vb & mysql ?

(..tvivl mhh til referencer..) den skulle gerne klare det selv:

  Set objConn = CreateObject("ADODB.Connection")
  Set objRs = CreateObject("ADODB.RecordSet")

Der skulle ikke være noget i det.. det er på samme måde som i fx. asp elle vbs
Du skal bare installer den -> MySQL ODBC 3.51 Driver eller en som er nyer..
Så skal du bare ændre -> strConn = "DRIVER={MySQL ODBC NUMBER Driver};" _

Så mangler jeg bare lidt kode til at få lidt udskrift kan du hjælpe der ?

Du skal bare have et loop på.. HUSK at bruge .MoveNext

    With objConn
        .CommandTimeout = 30
        .ConnectionTimeout = 15
        .ConnectionString = strConn
        .Open
        Set objRs = .Execute(strSQL)

        Do
          List1.AddItem objRs("brugernavn")
          objRs.MoveNext
        Loop While Not objRs.EOF

        .Close
    End With

Okay har det her nu




Private Sub Command1_Click()

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=tils9218;"
           
Dim strSQL As String
strSQL = "SELECT * FROM bruger"

objConn.ConnectionString = strConn
objConn.Open
Set objRs = objConn.Execute(strSQL)




End Sub

Private Sub Command2_Click()
List1.Clear
Do
    List1.AddItem objRs("bruger")
    objRs.MoveNext
Loop While Not objRs.EOF
End Sub


Men jeg kan ikke bruge objRS i command2_click da den jo bliver sat i command1_click, hvordan kan jeg gøre den "public" ?

Nå jeg fandt ud af det, har set og ændret min mysql kode da jeg fik dumpet den her. Min kode ser sådan her ud(Den første kode jeg har lavet i vb)


Private Sub Command1_Click()

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=xxxx;"
           
Dim strSQL As String

Dim navn As String
navn = Text1.Text
strSQL = "INSERT INTO `bruger` ( `id` , `bruger` )VALUES ('', '" & navn & "')"


objConn.ConnectionString = strConn
objConn.Open
Set ObjRs = objConn.Execute(strSQL)

Text1.Text = ""




End Sub

Private Sub Command2_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=xxxx;"
           
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

Syntes du har fortjent point, lig et svar

ok.. Du bør nok lige ændre dit password til til din sql-server.. for at være helt sikke, da du kom til at skrive det her: "PWD=tils9218;"

dog skal man først finde din ip.. men bare for en sikkerhes skyld ;)

Er gjordt, skrev osse længere oppe "har set og ændret min mysql kode da jeg fik dumpet den her"

Takker

Ja ellers kan du bare låse din sql-server til localhost eller 192.168% så er det kun lokalt netværk der kan bruge den..

Hvis dit program skal til din sql.. ude fra.. så lav en ny bruger til programmet.. så der ikke er nogle som opsnuser kode til root ;)