|
Registrieren
Login
DataCombo aktualisiert verzögert
Verfasst am: 07.02.2012, 21:33 Aufrufe: 24
Die DataCombo ist mit einem weiteren ADO Steuerelement (Adodc2) gebunden. Adodc2 greift auf dieselbe Tabelle zu:
Adodc2.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, By ...
Mit VB6 in einer Accessdatenbank Exceldaten importieren.
Verfasst am: 30.10.2011, 10:22 Aufrufe: 154
Ich möchte in einer PW-geschützen Access-DB Exceldaten importieren.
Dies muss ich ohne Access zu installieren schaffen.
Also VB-Programm öffnen. DB verbinden und Exceldaten importieren.
Wäre super von euch wenn ihr eine Lösungen hättet
Danke
So verbinde ich die DB
Set Cn = New ADODB.Connection
With Cn
.CursorLocation = adUseClient
.Mode = adModeShareDenyNone
.Provider = &qu ...
Ein- und Auslesen von Bilddaten in/von MySQL
Verfasst am: 29.08.2011, 02:22 Aufrufe: 418
VB Programm Zugriff auf Oracle 11g DB
Verfasst am: 28.01.2010, 12:38 Aufrufe: 2050
Das Programm meldet, dass es keine Verbindung zur DB bekommt.
Dieses Problem habe ich zumindest damit lösen können, dass ich den Teil
conORCL.Open "PROVIDER=MSDAORA; DATA SOURCE=ORADB", UserIdent, UserPwd
durch
Dim ConnString as string
ConnString = "Provider=MSDAORA.1 ; Password=myPassword; User ID=myUser ; Data Source = ORCL; Persist Security Info=True"
Dim objConn as new ADODB.Conn ...
basMSSQL
Verfasst am: 26.11.2009, 10:45 Aufrufe: 815
Datei in UTF-7, UTF-8, US-ASCII, Big5 usw. umwandeln
Verfasst am: 17.11.2009, 11:57 Aufrufe: 1745
... ' Textdatei schließen
End If
If Dir$(sFilename & "-Orig", vbNormal) <> "" Then ' Existiert die Datei ?
Kill sFilename & "-Orig" ' Textdatei schließen
End If
Name sFilename As sFilename & "-Orig" 'Original Datei umbennen
Set objStream = CreateObject("ADODB ...
Encoding in UTF-8 erzwingen
Verfasst am: 17.11.2009, 11:54 Aufrufe: 2374
... ' Textdatei schließen
End If
If Dir$(sFilename & "-Orig", vbNormal) <> "" Then ' Existiert die Datei ?
Kill sFilename & "-Orig" ' Textdatei schließen
End If
Name sFilename As sFilename & "-Orig" 'Original Datei umbennen
Set objStream = CreateObject("ADODB ...
Wie stell ich das an!?
Verfasst am: 08.06.2009, 08:55 Aufrufe: 812
Auch nach richtiger Eingabe ändert sich das nicht mehr. Wie kann ich das anstellen, das es erst nach der Eingabe des Benutzers kontrolliert ob richtig oder falsch?
Ebenso hab ich nicht rausbekommen, wie ich es machen könnte, das nach richtigem beantworten, automatisch das nächste Wort eingefügt wird. Warscheinlich mit einer Schleife, jedoch bin ich bis jetzt nur gescheitert.
Das ist mein Code:
Dim CN As New AD ...
Verbindung zu einer lokalen Postgres Datenbank
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 ...
SQL Connecter
Verfasst am: 08.09.2008, 12:51 Aufrufe: 1252
Zugriff auf Adaptive Server Anywhere 9.0
Verfasst am: 21.10.2007, 13:56 Aufrufe: 560
kommen. Der Connection String: ich habe im internet für VB 6.0 einen Beispiel Code gefunden wie mann zum ASA eine ODBC verbindung aufbauen kann, der scheint leider nicht komplett zu sein hier erstmal der code: Private Sub cmdTestConnection_Click() ' Declare variables Dim myConn As New ADODB.Connection Dim myCommand As New ADODB.Command Dim cAffected As Long On Error GoTo HandleError ' Est ...