[es] - VB 2005 express kod

steve585
Stevan Stanić
Project Manager
Zagreb

Član broj: 131815
Poruke: 281
*.xnet.hr.

+1 Profil

VB 2005 express kod

^{16.06.2007. u 10:55 - pre 205 meseci}

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

Odgovor na temu

steve585
Stevan Stanić
Project Manager
Zagreb

Član broj: 131815
Poruke: 281
*.xnet.hr.

+1 Profil

Re: VB 2005 express kod

^{17.06.2007. u 11:34 - pre 205 meseci}

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:

steve585

Prikačeni fajlovi

VB2005.JPG - 1.41k

Odgovor na temu

sale83
Australia
Sydney

Član broj: 41625
Poruke: 729
*.ispone.net.au.

+30 Profil

Re: VB 2005 express kod

^{18.06.2007. u 11:27 - pre 205 meseci}

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

Sto mozes danas ne ostavljaj za sutra!

Odgovor na temu