If ComboBox1.Text <> "System.Data.DataRowView" Then
sql = "SELECT Condominio.id, Condominio.Condominio AS COndo, Condominio.Indirizzo, Amministratori.Amministratore " sql = sql & " FROM Amministratori INNER JOIN Condominio ON Amministratori.ID = Condominio.idAmministratore" sql = sql & " WHERE (((Amministratori.Amministratore)=" & Chr(34) & ComboBox1.Text & Chr(34) & "));" Dim adoConn As ADODB.Connection = New ADODB.Connection() Dim adoRS As ADODB.Recordset = New ADODB.Recordset() TypeConn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=D:\Procedure\_A Inserisci Excel\Database\Millesimi.mdb;Jet OLEDB:Database PassWord=;" adoConn.Open(TypeConn.ConnectionString) adoRS.Open(sql, adoConn, ADODB.CursorTypeEnum.adOpenForwardOnly, ADODB.LockTypeEnum.adLockReadOnly, 1) Dim myShapes As New ArrayList Do While Not adoRS.EOF With myShapes .Add(adoRS.Fields("coNDO").Value) End With 'stringa = stringa & Chr(34) & adoRS.Fields("coNDO").Value & Chr(34) & ", " adoRS.MoveNext() Loop adoRS.Close() adoConn.Close() ComboBox1.DropDownStyle = ComboBoxStyle.DropDownList ComboBox3.DataSource = myShapes ComboBox3.SelectedIndex = 0 End If |