Top-Themen

Aktuelle Themen (A bis Z)

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit

Recordset in Combobox anzeigen

Mitglied: Herby-z

Herby-z (Level 1) - Jetzt verbinden

30.01.2009, aktualisiert 07:27 Uhr, 5930 Aufrufe, 2 Kommentare

Hallo,

ich möchte aus einer Access-Datenbank (Access 2000, Adressen.mdb) alle Adressen in eine Combobox VB6.0 einlesen.
Leider habe ich nicht allzuviel Erfahrung mit VB.
Suche per Google führte zwar zu einigen Treffern, welche ich aber leider nicht wirklich verstanden bzw. umsetzten konnte.
Für euere Hilfe wäre ich sehr dankbar.

JE EINFACHER DESTO BESSER !

P.S. Ist es auch Möglich die Access-Daten dauerhaft in das Projekt einzubinden, so dass ich die Adressen.mdb nicht mehr benötige,
sprich ich eine Exe erstellen kann in welcher die Daten enthalten sind ?

Gruß
Herby
Mitglied: Logan000
30.01.2009 um 08:34 Uhr
Moin Moin

Habe ich das richtig verstanden, du hast ein vb6 projekt und möchtest darin, Daten aus deiner Access DB in die Liste einer Combobox packen?
Hast du schon den DB zugriff realisiert. Also hast du schon ein Recordset in VB6?

Das sieht in etwa so aus:
01.
Me.MeineComboBox.clear 
02.
MeinRecordset.Movefirst 
03.
While Not MeinRecordset.EOF 
04.
   MeineComboBox.additem MeinRecordset.Fields(0).Value 
05.
   MeinRecordset.Movenext 
06.
Wend     
JE EINFACHER DESTO BESSER !
Einfach ist Programmierung eher selten.

Ist es auch Möglich die Access-Daten dauerhaft in das Projekt einzubinden, so dass ich die Adressen.mdb nicht mehr benötige, sprich ich eine Exe erstellen kann in welcher die Daten enthalten sind ?
????
Möchtest du auf die Eingabe neuer Adressen verzichten?
Wenn nein, wo möchtest du diese denn speichern? In der EXE auf jeden Fall nicht.

Gruß L.
Bitte warten ..
Mitglied: Herby-z
30.01.2009 um 09:48 Uhr
Mittlerweile bin ich soweit das die Combobox funktioniert, allerdings ist hier die Quelle keine Access-Datenbank sondern ein SQL-Datenbank.

Leider funktioniert die Zuweisung der Label-Caption nicht

Option Explicit
Dim oConn1 As New ADODB.Connection
Dim mRS1 As New ADODB.Recordset
Private Sub Combo1_Click()
'lblName1.Caption = mRS1("Name1")
HIER möchte ich das bei der Auswahl einer Adresse in der Combobox das Label Name1 den Wert der Ausgewählten Adresse erhält !?!?!?!?
End Sub

Private Sub Form_Load()
'Variablen deklarieren
Dim arrayadressen()
Dim i As Integer
'Verbindung zur ProCos-Datenbank

Set oConn1 = New ADODB.Connection
With oConn1
.Provider = "SQLOLEDB.1"
.Properties("Data Source") = "SQL-SERVER"
.Properties("User ID") = "bsp"
.Properties("Password") = "bsp"
.Properties("Initial Catalog") = "password"
.CursorLocation = adUseClient
.Open
End With

Set mRS1 = oConn1.Execute("Select * from prwit1.procos.adressen order by Adresse")
If mRS1.RecordCount > 0 Then
With mRS1
.MoveFirst
Do While Not .EOF
ReDim Preserve arrayadressen(i)
Combo1.AddItem mRS1("Adresse")
i = i + 1
If i = 1 Then
Combo1.Text = mRS1("Adresse")
End If
.MoveNext
Loop
End With
End If
End Sub

Private Sub Form_Unload(Cancel As Integer)
mRS1.Close
Set mRS1 = Nothing
oConn1.Close
Set oConn1 = Nothing
End Sub
Bitte warten ..
Ähnliche Inhalte
Visual Studio

Ein ComboBox ändert andere Combobox-Selected Item

Frage von Teddy74Visual Studio3 Kommentare

Guten morgen, direkt ins Problem: Ich habe ein DataSet mit Liefer Termine. Kunde Soll 5 Liefertermine auswählen können. Dafür ...

VB for Applications

Access 2010 vba Recordset

gelöst Frage von EUuserVB for Applications3 Kommentare

Hallo zusammen, ich arbeite seit langem mal wieder mit Access und vba: Ich habe eine Datenbank, zwei Tabellen (identisch ...

Microsoft Office

Combobox verknüpfen

Frage von GundelputzMicrosoft Office1 Kommentar

Hallo alle zusammen, ich möchte mit Excel 2010 und VBA eine Tabelle durchsuchen. In der Tabelle sind Spalten wie ...

Batch & Shell

Powershell Combobox

gelöst Frage von PeterzBatch & Shell2 Kommentare

Hallo, wie kann ich bei einer Combobox und/oder einer Messagebox das rechts oben befindliche Kreuz (weiß auf rotem Grund) ...

Neue Wissensbeiträge
Humor (lol)
IoT-Gefahr: Smartes Aquarium leckt!
Information von Lochkartenstanzer vor 1 TagHumor (lol)3 Kommentare

Moin, Die IoT-Manie hat weitere Opfer gefunden. Ein Casino-Leck durch ein smartes Aquarium: Allerdings haben sie kein Wasser, sondern ...

Router & Routing

Alte Fritzbox 7270 mit VPN und SIP-Telefonie hinter O2 Homebox 6641 als "Modem"

Erfahrungsbericht von the-buccaneer vor 1 TagRouter & Routing3 Kommentare

Nun war es soweit: Auch O2 hat mich mit VOIP zwangsbeglückt. Heute am Privatanschluss, in 2 Wochen ist das ...

Sicherheit

Ungepatchte Remote Code Execution-Lücke in LG NAS

Information von kgborn vor 2 TagenSicherheit

Nutzt wer LG NAS-Einheiten? In den NAS-Einheiten der LG Network Storage-Einheiten gibt es eine sehr unschöne Schwachstelle, die einen ...

Windows Update

Neue Version KB4099950 NIC Einstellungen gehen verloren

Information von sabines vor 2 TagenWindows Update2 Kommentare

Es ist eine neue Version des KB4099950 verfügbar, die das Problem mit den verlorenen Netzwerkeinstellungen lösen soll. Das Datum ...

Heiß diskutierte Inhalte
Router & Routing
Mikrotik: Routing zwischen Interfaces mit Geräten ohne Gateway
Frage von TonLichtVideoRouter & Routing18 Kommentare

Hallo zusammen, ich komme aus dem Veranstaltungstechnik Bereich und habe zwei Netze um verschiedene Hardware zu Remoten. CONTROL1 192.168.1.0/24 ...

Linux Netzwerk
Raspberry Pi 3: WLAN Power save deaktivieren
Frage von nordie92Linux Netzwerk14 Kommentare

Moin moin, mein Raspberry Pi 3 Model B benötigt eine dauerhaft aktive WLAN-Verbindung. Leider bricht die WLAN-Verbindung nach einigen ...

Vmware
Server 2008 r2 vmware terminalserver
Frage von MasterCVmware11 Kommentare

Guten Abend zusammen, ich hoffe , dass einer von euch mir weiterhelfen kann ,bei meinem kack Problem ! Ist ...

VB for Applications
VBScript mit WINscp für einfachen FTP Transfer und nachträglichem verschieben der Datei in ein erledigt Verzeichnis
Frage von KeiosIDVB for Applications9 Kommentare

Hallo, leider soll ich auf den neueren Servern(Win2016R2) keine *.Bat Dateien mehr laufen lassen. Hier soll nun alles über ...