ORACLE n VB
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''Question
Q: this code brings a blank datagrid, why?
VB.NET:
Private Sub Form_Load()
Dim db As Connection
Set db = New Connection
db.CursorLocation = adUseClient
'db.Open "PROVIDER=MSDASQL;driver={Oracle in DataBase};server=davie;uid=davie;pwd=pix;database=davie;"
db.Open "PROVIDER=MSDataShape;Data PROVIDER=MSDASQL;dsn=DAVIE;uid=davie;pwd=pix;database=registry;"
Set adoPrimaryRS = New Recordset
adoPrimaryRS.Open "select NO, NAME, CLASS, JOIN, LEAVE FROM DAVIE.STUD WHERE NO = '& *txtNo.text*'", db, adOpenStatic, adLockOptimistic
Dim oText As TextBox
'Bind the text boxes to the data provider
For Each oText In Me.txtFields
Set oText.DataSource = adoPrimaryRS
Next
End Sub
Q: this code brings a blank datagrid, why?
Last edited by a moderator: