[ steve585 @ 16.06.2007. 10:55 ] @
Do sada sam aplikacije radio samo u VB 6.0. Ali volio bih preci na Visual Studio 2005, te sam stoga instalirao Visual Basic 2005 Express. Buduci da najvise radim sa bazama podataka zelio sam probati jedan ADO kod iz VB 6.0 (koristi MySQL bazu podataka) u VB 2005, nije proslo.

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



Kako bi ovaj kod trebalo napisati u VB 2005?
[ steve585 @ 17.06.2007. 11:34 ] @
Uspio sam iscitati podatke iz txt fajla. Ovo je kod:

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


Ipak volio bih znati kako zamjeniti VB 6.0 izraz
!a
sa izrazom u VB 2005 (ovdje sam koristio
.GetString)
Naime, prilikom iscitavanja zelio sam da se iscita prva vrijednost, pa potom napraviti 8 praznih karaktera, te onda ispisati vrijednost iz reda ispod. Pomocu trenutnog koda dobijem rezultat kao na slici:
[ sale83 @ 18.06.2007. 11:27 ] @
Zaboravi na izraz RecordSet!Polje. To u VB 2005 nije podrzano.
To si mogao da koristis u VB6.

U VB 2005 to moze ovako:


Code:

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




PS nadam se da si na to mislio.

Poz
sale
[ steve585 @ 20.06.2007. 19:13 ] @
Bas to!