Hjælp til Visual Basic, MYSQL og php

'--------------------------------------- Form1 ---------------------------------------
' HUSK at du skal bruge MySQL ODBC 3.51 Driver (Til Windows)
' Download her: http://www.mysql.com/downloads/api-myodbc-3.51.html
'-------------------------------------------------------------------------------------
Option Explicit

Private objConn As Object
Private objRs  As Object

Public Function MySQL(ByVal strHost As String, _
                      ByVal strBase As String, _
                      ByVal strUser As String, _
                      ByVal strPass As String, _
                      ByVal strBruger As String, _
                      ByVal strAdgang As String) As Boolean
Dim strSQL As String
Dim strConn As String

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

  'Her skal du lige selv ænder til din egen sql-string.
  strSQL = "SELECT * FROM oplysninger_users WHERE Brugernavn = '" & strBruger & "' AND Adgangskode = '" & strAdgang & "'"

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

        If Not (objRs.BOF Or objRs.EOF) Then
          'Her skal du nok ændere "brugernavn" og "adgangskode" _
          så det passer til dit. --> objRs(HER)
          If objRs("brugernavn") = strBruger And _
            objRs("adgangskode") = strAdgang Then
            MySQL = True
          End If
        End If

        .Close
    End With
End Function

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

  'Husk at ænder HOST, DATABASE, USER og PASS til din SQL-Server _
  Bruger og Adgang er de navne du tjekker..
  Me.Caption = MySQL("HOST", _
                    "DATABASE", _
                    "USER", _
                    "PASS", _
                    "Bruger", _
                    "Adgang")
End Sub

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

Er det kun drivere jeg skal hente på

http://www.mysql.com/downloads/api-myodbc-3.51.html

Ja men kun hvis du får fejl på min kode... (Prøv lige koden først)

Windows downloads
Driver Installer  3.51.06 731.2K

er det til VB eller server

Fejlen ville komme her: --> .ConnectionString = strConn

du skal installere den på den computer som dit program skal køre på :)

hvor kommer mine to "textbox" brugernavn og password og login knappen

det er det her:

  'Husk at ænder HOST, DATABASE, USER og PASS til din SQL-Server _
  Bruger og Adgang er de navne du tjekker..
  Me.Caption = MySQL("HOST", _
                    "DATABASE", _
                    "USER", _
                    "PASS", _
                    "Bruger", _
                    "Adgang")

eller sådan:

Private Sub Command1_Click()
  Me.Caption = MySQL("HOST", _
                    "DATABASE", _
                    "USER", _
                    "PASS", _
                    Text1.Text, _
                    Text2.Text)
End Sub

er du på MSN

Ja lidet endnu... sjh.multimedia@get2net.dk

technodance.dk < Hvordan ser det ud.. det er ved at være lukke tid ;)

Ved ikke om du kom videre med problemet, men jeg har lige set dette spørgsmål+svar om nogenlunde det samme her: http://www.eksperten.dk/spm/447553

Jeg er også på udkig efter en mulighed for at connecte til en MySQL på mit webhotel fra min PC. Jeg søgte også i første omgang efter en ODBC-tilgang, men tenderer mere og mere til XML, jfr. linket. Måske kan du også anvende den der skitserede løsning.

Larsvb: Du har lige linket til det her spørgsmål?

Argh! Det er en klippe-klistre/caching-fejl, det er nemlig sket for mig før. Desværre er det jo et par måneder siden så jeg aner ikke mere hvad det rigtige link var :-(