Dichiarazioni:
Dim db As New ADODB.Connection
Dim rsTempB As New ADODB.Recordset
Poi :
Private Sub Form_Load()
db.Provider = "MSDataShape"
db.ConnectionString = "Data Provider=Microsoft.Jet.OLEDB.4.0;Data Source= Organizer.mdb;Persist Security Info=False"
db.Open
Parametro = "Nominativo"
rsTempB.CursorType = adOpenDynamic
rsTempB.CursorLocation = adUseClient
rsTempB.Source = "SELECT * FROM Interventi"
rsTempB.Open , db
Set DataGrid1.DataSource = rsTempB
rs.TempB.Close
db.Close
End Sub
La connessione al db avviene ,ho controllato con :
If db.State = adStateOpen Then
Text1.Text = "Database Connesso"
Else
Text1.Text = "Database NON connesso"
End If
Mentre i recordset sono corretti , controllato a caso con un :
Label.Caption = rsTempB("Data")
Allora la domanda sorge spontanea....COME MAI NON VUOL POPOLARMI QUESTO DANNATO DATAGRID??
Scusate lo sfogo ma non so veramente che pesci prendere...