Brugernavn:



Kodeord: Husk
Forside Forum Artikler Downloads Søg
 

Connecte til database via VB

Hejsa, Rowlere. Hvordan kan man via Visual Basic lave et login, hvori den hente fra tabellen brugere og felterne id,kode,brugernavn, :D?
(skal lave et login lissom steam man =])

- Perfektion
Oprettet af:
Perfektion

Visual Basic

Fri debat

Åben
16:48 22/07/2010
du bør nok nævne hvilken database du bruger
Oprettet af:
danni

Kommentar
17:00 22/07/2010
Danni jeg har os lavet en tråd om dette.
http://rowl.dk/Forum/31036 og jeg skal os have connecte til en database fra phpmyadmin.
man kan os med en database man selv laver i Office access.
http://www.youtube.com/watch?v=NlH167_voXU eller
http://www.youtube.com/watch?v=p0dcPiLYrck eller
http://www.youtube.com/watch?v=PcRqwmtyMeU&feature=related kan ikke finde mere på youtube
Sidst redigeret 17:58 22/07/2010 af Rowl
Oprettet af:
Qgangster728

Kommentar
17:40 22/07/2010
Brug nu Google for filan!

Søgte på "vb mysql connection"

Det allerførste resultat er brugbart ;)
Oprettet af:
Thomas

Kommentar
17:53 22/07/2010
  1. Dim strDataBaseName As String
  2. Dim strDBCursorType As String
  3. Dim strDBLockType As String
  4. Dim strDBOptions As String
  5. Dim rs As ADODB.Recordset
  6. Dim cn As ADODB.Connection

  8. Private Sub Command1_Click()
  9. On Error GoTo Command1_Click_Error
  10. Dim b as Long
  11. strDBCursorType = adOpenDynamic  'CursorType
  12. strDBLockType = adLockOptimistic   'LockType
  13. strDBOptions = adCmdText         'Options

  15. Set cn = New ADODB.Connection
  16. Me.MousePointer = 11

  18. cn.Open ConnectString()
  19.     
  20.     With cn
  21.         .CommandTimeout = 0
  22.         .CursorLocation = adUseClient
  23.     End With

  25.     Set rs = New ADODB.Recordset       'Creates record set

  27.     strSQL = "<Your SQL Here>"
  28.     
  29.     rs.Open strSQL, cn, strDBCursorType, strDBLockType, strDBOptions
  30.     

  32. if rs.Eof then
  33.    Goto ExitSub    
  34. else
  35.     For b = 1 To rs.RecordCount
  36.     '<do whatever you need to do with the data here>
  37.     Next b
  38. end if
  39.     
  40. ExitSub:

  42. rs.Close
  43. Set rs = Nothing
  44. cn.Close
  45. Set cn = Nothing

  47. On Error GoTo 0
  48. Exit Sub

  50. Command1_Click_Error:
  51.     MsgBox "Error " & Err.Number & " (" & Err.Description & ")  & _
  52.                      in procedure Command1_Click of Form " & Me.Name
  53. End Sub

  55. Private Function ConnectString() As String
  56. Dim strServerName as String
  57. Dim strDatabaseName as string
  58. Dim strUserName as string
  59. Dim strPassword as string

  61.     'Change to IP Address if not on local machine
  62.     'Make sure that you give permission to log into the
  63.     'server from this address
  64.     'See Adding New User Accounts to MySQL
  65.     'Make sure that you d/l and install the MySQL Connector/ODBC 3.51 Driver

  67. strServerName = "localhost"
  68. strDatabaseName = "DatabaseName"
  69. strUserName = "UserName"
  70. strPassword ="Password"

  72. ConnectString = "DRIVER={MySQL ODBC 3.51 Driver};" & _
  73.                 "SERVER=" & strServerName & _
  74.                 ";DATABASE=" & strDatabaseName & ";" & _
  75.                 "USER=" & strUserName & _
  76.                 ";PASSWORD=" & strPassword  & _
  77.                 ";OPTION=3;"

  79. End Function
Oprettet af:
MikL

Kommentar
18:10 22/07/2010
Du skal være oprettet og logget ind for at svare på en tråd
Copyright © Rowl.dk v/ Michael Raagaard | 2005-12 | Alle rettigheder forbeholdes