mysql og visual basic 6.0

MySQL ODBC 3.51 Driver

Der er flere måder at gøre det på:



1.) (Den sikre måde) Hvis andre ude fra skal ha adgang til disse oplysninger, så er det smartes at køre det hele over PHP.. altså at dit vb-program henter oplysninger gennem php..

2.) Hvis du ikke ønsker (1.) så se her : http://www.eksperten.dk/spm/447553

Altså til svar 1)
Altså så det hele kører over i et browser-objekt??

Har kigget på http://www.eksperten.dk/spm/447553 før....

Nej noget i den stil.. http://vbhansen.dk/spm/304504/ (Det er dog lavet til ASP.. men kan nemt laves til php)

Hvordan fungere det system ???? ALtås at man putter et stykke PHP kode ind i noget VB kode??

Ahaa... den downloade simpelt hen en fil fra en server og udskriver den i programmet? :P

det tror jeg ikke jeg kan bruge til noget

Nej det kræver at du har en webserver kørende.. Så henter dit vb-program så den data du spytter ud fra din asp/php-side.. og den data opdeler du så i dit vb-program..

Hvad er problemet så? så er der kun den her måde tilbage : http://www.eksperten.dk/spm/447553

den har jeg leget med... men kan ikke få den til at gøre som jeg vil have

hvad fejl får du?? hvordan ser din SQL-string ud??

jeg får ikke nogen fejl. jeg kan sagtens få det eksempel til at virke.. Men jeg er halvt nybegynder i VB så jeg ved ikke hvordan ejg kan lave det som jeg har beskrevet i spørgsmålet

DATABASE=dmp

  'Her skal du lige selv ænder til din egen sql-string.
  strSQL = "SELECT * FROM serverconfig;"


...
....

        If Not (objRs.BOF Or objRs.EOF) Then
          Print "Brugernavn: " & objRs("UserName") '<- field navn : UserName
        End If

husk at sette AutoRedraw = True ellers kan du ikke se det.. når du bruger: Print "Brugernavn: ".....

Skal jeg ikke også have en mysql connection??

jeg er ikke vb ekspert :P

Du skal bare ænder det til det jeg har skrævet..

ænder det i koden her : http://www.eksperten.dk/spm/447553

Hvad skal jeg skriver der hvor du har skrevet
"
...
....
"
?

jeg vil jo gerne have sådan jeg f.eks. kan skrive

Label1.Text = GetUserInfo("MYSQL_FELT_NAVN_HER")

Husk at ændre det steder jeg har skrævet...


'--------------------------------------- Form1 ---------------------------------------
Option Explicit

Private objRs  As Object
Private objConn As Object

Public Function mysql_connect(ByVal strHost As String, _
                              ByVal strBase As String, _
                              ByVal strUser As String, _
                              ByVal strPass As String) As Object ' Connection
Dim strConn As String

  strConn = "DRIVER={MySQL ODBC 3.51 Driver};" _
            & "SERVER=" & strHost & ";" _
            & "DATABASE=" & strBase & ";" _
            & "UID=" & strUser & ";" _
            & "PWD=" & strPass & ";"

  Set objConn = CreateObject("ADODB.Connection")
  With objConn
      .CommandTimeout = 30
      .ConnectionTimeout = 15
      .ConnectionString = strConn
      .Open
  End With
  Set mysql_connect = objConn
End Function

Public Sub mysql_close(objConn As Object)
  objConn.Close
End Sub

Public Function mysql_query(strSQL As String, objConn As Object) As Object ' RecordSet
  Set mysql_query = CreateObject("ADODB.RecordSet")
  Set mysql_query = objConn.Execute(strSQL)
End Function

' Her har du så din getUserInfo() funktion..
Public Function getUserInfo(FieldName As String) As Variant
  getUserInfo = objRs(FieldName)
End Function

Private Sub Form_Load()
  ' Husk at ænder HOST, DATABASE, USER og PASS til din SQL-Server
  Set objConn = mysql_connect("HOST", "DATABASE", "USER", "PASS")

  ' Husk at ænder SQL_STRING (det som du ønsker at udfør..)
  Set objRs = mysql_query("SQL_STRING", objConn)

  MsgBox getUserInfo("Brugernavn")

  Call mysql_close(objConn)
End Sub

Private Sub Form_Unload(Cancel As Integer)
  Set objConn = Nothing
  Set objRs = Nothing
End Sub
'--------------------------------------- Form1 ---------------------------------------

jeg prøver lige...!! du får point!!

Kan jeg ikke få funktionen til at returnere FieldName ??

Nå jo det er jo det den gør :D Sorry hehe