VB 2005 express kod

Code:

Sub veza()

a1 = "Provider=MSDASQL.1"
a2 = ";Persist Security Info=False"
a3 = ";Extended Properties="
a4 = "DATABASE=site_novosti"
a5 = ";DRIVER={MySQL ODBC 3.51 Driver}"
a6 = ";OPTION="
a7 = ";PORT=0"
a8 = ";SERVER=localhost"
a9 = ";UID=root"

gConnection = a1 & _
                    a2 & _
                    a3 & _
      Chr(34) & a4 & _
                    a5 & _
                    a6 & _
                    a7 & _
                    a8 & _
                    a9 & Chr(34)
                        
Adodc3.ConnectionString = gConnection

SQL = "Select GradGrad from udaljenosti where Moskva=20"

End Sub

Private Sub Command1_Click()
Dim adoConn As ADODB.Connection ' konekcija
Dim adoRS   As ADODB.Recordset  ' rekordset u kome ce biti podaci
Dim adoFld  As ADODB.Field      ' polje iz rekordseta, sluzi pri ispisu
Dim sQry    As String           ' SQL upit
Dim a, b

veza
 '-- kreiraj i otvori konekciju
    Set adoConn = New ADODB.Connection
    adoConn.Open gConnection
    
    '-- formiraj upit
    sQry = SQL
    
    '-- kreiraj i otvori rekordset
    Set adoRS = New ADODB.Recordset
    adoRS.Open sQry, adoConn
    
     adoRS.MoveFirst
    
    '-- prikazi zapise
    With adoRS
    .MoveFirst
      Do While Not .EOF
        a = !GradGrad
        If txtData = "" Then
        b = a
        Else
        b = b & Chr(13) + Chr(10) & a
        End If
       .MoveNext
      Loop
      txtData = b
    End With
    
End Sub

Code:

       Dim adoConn As ADODB.Connection ' konekcija
        Dim adoRS As ADODB.Recordset  ' rekordset u kome ce biti podaci
        Dim sQry As String           ' SQL upit
        Dim sql
        Dim a, b, c, d As String
        Dim veza1 As String
        a = "Provider=MSDASQL.1;Persist Security Info=False;Extended Properties="
        b = Chr(34)
        c = "DBQ=C:\DOKUMENTE UND EINSTELLUNGEN\ZANA\DESKTOP\TEST\XLDATA;DefaultDir=C:\DOKUMENTE UND     EINSTELLUNGEN\ZANA\DESKTOP\TEST\XLDATA;Driver={Microsoft Text Driver (*.txt; *.csv)};DriverId=27;FIL=text;FILEDSN=C:\Dokumente und Einstellungen\Zana\Desktop\Test\XLDATA\TXTODBC.dsn;MaxBufferSize=2048;MaxScanRows=8;PageTimeout=5;SafeTransactions=0;Threads=3;UID=admin;UserCommitSync=Yes;"
        d = Chr(34)

        veza1 = a & b & c & d

        sql = "Select a from Test.txt"

        '-- kreiraj i otvori konekciju
        adoConn = New ADODB.Connection
        adoConn.Open(veza1)

        '-- formiraj upit
        sQry = sql

        '-- kreiraj i otvori rekordset
        adoRS = New ADODB.Recordset
        adoRS.Open(sQry, adoConn)

        adoRS.MoveFirst()

        '-- prikazi zapise
        With adoRS
            .MoveFirst()
            Do While Not .EOF
                a = RTrim(.GetString) & Space(8)
            Loop
            Text3.Text = a
        End With
    End Sub

Code:

Private mRs As DAO.Recordset
ili
Private mrS As ADODB.Recordset
' I onda poljima u bazi pristupas sa:
mRs.Fields("PoljeUBazi").Value