|
'*******************************************************************************************
' Creazione Datacombo or DataList in Visual Basic 6 '******************************************************************************************* ' Set Datprimaryrs = New Recordset ' Datprimaryrs.Open "SELECT IdCondominio, * FROM Scadenzario", DbAzienda, adOpenStatic, adLockOptimistic ' Set CondominiRs = New Recordset ' CondominiRs.Open "Select id, Condominio , * from Condomini", DbAzienda, 3, 3 ' Set DataCombo2.DataSource = Datprimaryrs ' Recordset Principale ' Set DataCombo2.RowSource = CondominiRs ' recordset secondario per la visualizzazione di raccolta dati ' DataCombo2.DataField = "IdCondominio" ' Campo di Datprimaryrs contenente il campo relazione con la tabella secondaria (IdBanca" ' DataCombo2.BoundColumn = "id" ' dati del recordset secondario che trasmette il dato in Datafields ' DataCombo2.ListField = "Condominio" ' Elenco dati del recordset secondario da visualizzare '******************************************************************************************* ' Creazione Datacombo or DataList in Visual Basic .Net '******************************************************************************************* ' Dim Dbazienda As New Connection ' Set Dbazienda = New Connection ' Dim _Conn As String ' _Conn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=<Dir_PercorsoBD>\<Database.mdb>;Persist Security Info=False" ' Dbazienda.Open _conn '**************************************************** ' Dim Operaio82Rs As New Recordset ' Set Operaio82Rs = New Recordset ' Operaio82Rs.Open "Select * from "Operaio", Dbazienda, 3, 3 ' Set DataList7.DataSource = Datprimaryrs ' Recordset Principale ' Set DataList7.RowSource = Operaio82Rs ' recordset secondario per la visualizzazione di raccolta dati ' DataList7.DataField = "Idoperaio" ' Campo di Datprimaryrs contenente il campo relazione con la tabella secondaria (IdBanca ' DataList7.BoundColumn = "idamministratore" ' dati del recordset secondario che trasmette il dato in Datafields ' DataList7.ListField = "Nominativo" ' Elenco dati del recordset secondario da visualizzare |