' da CreaFormADODB
Private Sub DataGrid1_DblClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles DataGrid1.DblClick ' Database_MDB.ID, Database_MDB.MDatabase, Database_MDB.Path, NomeProgettoCreato Text1.Text = DataGrid1.Columns(3).Value ' MyRs.Fields("NomeProgettoCreato").Value Text2.Text = DataGrid1.Columns(2).Value Text3.Text = DataGrid1.Columns(1).Value Mystruttura.IdDatabase_MDB = DataGrid1.Columns(0).Value Mystruttura.Database = Text3.Text Mystruttura.path = Text2.Text Mystruttura.Progetto = Text1.Text Mystruttura.Driver = Mid(Text2.Text, 1, 3) Stringa = "SELECT Database_MDB.MDatabase, Tabelle.Tabella, NewForm.Campo, Database_MDB.NomeProgettoCreato AS Progetto " & _ " FROM (Database_MDB INNER JOIN Tabelle ON Database_MDB.ID = Tabelle.IDDatabase) INNER JOIN NewForm ON Tabelle.ID = NewForm.IdTabelle " & _ " WHERE (((Database_MDB.NomeProgettoCreato)='" & Text1.Text & "'));" Dim Mrs As New ADODB.Recordset Mrs.Open(Stringa, DbAzienda, 3, 3) TextBox1.Text = Mrs.RecordCount If Mrs.RecordCount = 0 Then TextBox1.BackColor = Color.Red TextBox1.ForeColor = Color.Yellow Else TextBox1.BackColor = Color.White TextBox1.ForeColor = Color.Blue End If Mrs.Close() End Sub |