RecordSource = "SELECT DISTINCT Wohnort FROM Adressen ORDER BY Wohnort"
War das Update erfolgreich, soll Adodc2 -und damit auch die DataCombo- aktualisiert werden:
Private Sub Adodc1_RecordChangeComplete(ByVal adReason As ADODB.EventReasonEnum, ByVal cRecords As Long, ByVal pError As ADODB.Error, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset)
If adStatus = adSta ...
Verfasst am: 11.01.2011, 16:42 Aufrufe: 286
Hallo zusammen,
ich mache nach langer Zeit mal wieder was in VB6. Jetzt habe ich das Problem, dass Sub's automatisch aufgerufen werden, ohne dass das im Programmablauf vorgesehen ist.
Beispiel:
Ich habe mehrere Combo-Boxen auf dem Formular, die ich aus verschiedenen Recordsets fülle. Zu jeder gibt es eine ComboX_Click(), in der ich nach Auswahl eines Wertes, das zugehörige Recordset positioniere:
Private ...
Verfasst am: 28.01.2010, 12:38 Aufrufe: 2055
1 ; Password=myPassword; User ID=myUser ; Data Source = ORCL; Persist Security Info=True"
Dim objConn as new ADODB.Connection
objConn.open ConnString
ersetzt habe. Damit klappte zumindest erstmal der DB Zugriff, aber danach danach scheiterte es leider an den Zeilen ab
'Öffnen Recordset Stammdaten FORSTAMT]
dort meldet er dann immer "Fehler öffnen..."
Ich weiß, es ist sehr viel Code, a ...
Verfasst am: 22.01.2010, 06:33 Aufrufe: 388
Hallo,
ich probiere gerade ein Recordset mit Field in ein Array zu schreiben. Sprich es muss ein Rs!field1 bis Rs!fieldx in ein Array, um ein später wieder auslesen zu können und das Datagrid im Fenster daraus dynamisch wieder aufbauen zu können.
Leider geht das weder mit Object noch mit Field. Kann mir jemand kurz weiterhelfen?
Danke
Verfasst am: 26.11.2009, 10:45 Aufrufe: 815
'===
'=== [+] SendSQL(T-SQL Query)
'=== Sendet einen T-SQL Query an den Verbundenen Server.
'========================================================================
Option Explicit
Public Conn As ADODB.Connection
Public Recordset As New ADODB.Recordset
Public Function ConnectMSSQL(ByVal Host, _
User, _
Passwort) As Boolean
...
Verfasst am: 15.06.2009, 11:05 Aufrufe: 3579
Um eine Datenbank und ihre Tabellen anzusprechen brauchen wir erstmal zwei Variablen, die global deklariert werden.(Ganz oben schreiben. Außerhalb der Subs)Private DB As DAO.Database 'Datenbank<br />Private TB As DAO.Recordset 'TabelleUnd nun übergeben wir an DB den Pfad zur Datenbank. Am besten schreibt ihr das in Form_Load.Set Db = OpenDatabase(App.path & "mailaccounts.mdb")Sollte eigentlich s ...
Verfasst am: 03.05.2009, 11:38 Aufrufe: 2107
"TableDef" (Tabellendefinition) und "Field" (Feld).
"DAO.Index" brauchen wir später zum erstellen eines Indexes.
Deklarationen:
Private Db As DAO.Database
Private Tb As DAO.Recordset
Private nTableDef As New TableDef 'Tabellendefinition
Private nField As New Field 'Felder
Private nIndex As DAO.Index 'Zum erzeugen des Indexes
Damit hätten wir schonmal den Grundstein.
...
Verfasst am: 28.04.2009, 11:26 Aufrufe: 731
Ich versuche schon seit mehreren Tagen auf eine lokale Postgres-Datenbank mittels VB-Code zuzugreifen bekomme aber nur Fehlermeldungen.
Vielleicht habt ihr ja Ideen, wie es anders/besser geht oder wie ich die Fehlermeldungen behoben bekomme.
Probiert habe ich folgende Varianten:
Dim dbOut As ADODB.Connection
Dim rsOut As ADODB.Recordset
Set dbOut = New ADODB.Connection
Set rsOut = New ADOD ...
Verfasst am: 17.04.2008, 11:37 Aufrufe: 1923
"TableDef" (Tabellendefinition) und "Field" (Feld)."DAO.Index" brauchen wir später zum erstellen eines Indexes.Deklarationen:Private Db As DAO.Database<br />Private Tb As DAO.Recordset<br />Private nTableDef As New TableDef 'Tabellendefinition<br />Private nField As New Field 'Felder<br />Private nIndex As DAO.Index 'Zum erzeugen des IndexesDamit hätten wir schonmal den Grundstein.3. Datenbank ...