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
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