Visual Basic Forum

Verfasst am: 30.10.2011, 10:22 Aufrufe: 154

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 = "Microsoft.Jet.OLEDB.4.0" .Properties("Data Source") = PF 'App.Path & "\dbag.mdb" 'hier ist die Datenbang .Properties("Jet OLE ...

Verfasst am: 06.10.2011, 14:00 Aufrufe: 337

Ich habe ein Problem an dem ich schon wochenlang rummache und hoffe auf Eure Hilfe. Es geht um eine Dynamische Anpassung des Connection Strings in einem Adodc Objekt. Mein Prog erzeugt für jeden Testort (Benutzereingabe) eine Access mdb mit Tabellen für jeden Test (Benutzereingabe). Die DB ist über ADODC per Connection String mit vb6 verbunden. Die Messwerte zeige ich in einem Grid und einem MSChar ...

Verfasst am: 21.07.2011, 15:14 Aufrufe: 319

Verfasst am: 14.07.2011, 08:02 Aufrufe: 296

Pfad_fuer_dateien + "\db" + Format$(mod_allg.Firmennummer, "00000") + ".mdb;" & _ "DefaultDir=" & mod_allg.Pfad_fuer_dateien & ";DriverId=25;FIL=MS Access;MaxBufferSize=2048; PageTimeout=5;UID=sa;PWD=" & Trim(mod_allg.DB_Kennwort) & ";" _ , ...

Verfasst am: 04.02.2011, 10:02 Aufrufe: 417

Hallo alle zusammen, ich versuche verzweifelt den INhalt einer Arraylist (Name Vorname Ausgabe Eingabe) in eine Accessdatenbank zu schreiben. Dim iCount As Integer = importkasse.Count Dim iIndex As Integer Dim str As String For iIndex = 0 To iCount - 1 str = str & importkasse.Item(iIndex).ToString & "," Next cmd ...

Verfasst am: 23.12.2010, 12:47 Aufrufe: 362

Hallo zusammen, ich bin kein toller Experte, aber immerhin habe ich in einer Entwicklungsumgebung Windows XP SP3 und NET 2.0 eine Windows-Applikation erstellt mit der Endung .exe und Datenbankanbindung an Access-DB mit .mdb Das klappt einwandfrei. Dann kopierte ich diese exe-Applikation aus dem "bin"-Ordner mitsamt der mdb-Datenbank in die Produktivumgebung Windows XP SP3 und NET 3.5 Ich habe darin ...

Verfasst am: 13.07.2010, 05:09 Aufrufe: 486

Verfasst am: 13.06.2010, 19:35 Aufrufe: 466

Hallo, ich habe eine Frage, da ich mich heute zum ersten mal mit dem Zugriff aUF MDBs über VB6 befasse. Alle sachen, die ich ergoggelt habe, sind leider so kompliziert (also zumindest für einen Laien wie mich), dass sie mir nicht helfen. Mein Problem: Ich versuche die Daten einer Datenbank (alle Datensätze, jedes Feld) in ein array einzulesen: Sub Daten_einlesen() Dim j As Integer j=0 ...

Verfasst am: 19.03.2010, 18:45 Aufrufe: 966

0;" & _ "Data Source=C:\Probe\Dat\Probe.mdb" cmd.Connection = con Try Auslesen = Split(ListBox1.

Verfasst am: 28.01.2010, 12:38 Aufrufe: 2050

Verfasst am: 07.01.2010, 07:49 Aufrufe: 831

Hallo! Ich pflege ein Programm, welches in VB6 mit Visual Basic 6 Professional entwickelt wurde und auf eine Access-DB (mdb) zugreift. Der Zugriff erfolgt über DAO 3.6 (ist unter Projekt -> Verweise aktiviert). Die dao360.dll ist im Installer (Paket und Weitergabe Assisent vom Visual Basic 6 Professional) enthalten. In der Regel läuft das Programm - zumindest auf den Rechner hier bei uns. Das Programm wurd ...

Verfasst am: 13.07.2009, 07:55 Aufrufe: 1495

Verfasst am: 15.06.2009, 11:05 Aufrufe: 3576

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 selbsterklärend sein, dass in den Klammern der Pfad zur Datenbank steht.Jetzt haben wir Zugriff auf die Datenbank. Aber wir benötigen noch Zugriff auf die Tabelle „MailAccounts“.Zum öffnen einer Tabelle gibt es vier Möglichk ...

Verfasst am: 08.06.2009, 08:55 Aufrufe: 812

Verfasst am: 08.05.2009, 22:11 Aufrufe: 1057

Verfasst am: 03.05.2009, 11:38 Aufrufe: 2105

Beispiel: App.Path & "\test.mdb" (Connect) Gibt die benutzte Sprache an. Im Normalfall nimmt man "dbLangGeneral". Beispiele: dbLangGeneral: Western European: English, German, French, Portuguese, Italian, and modern Spanish dbLangArabic: Arabic dbLangChineseSimplified: Simplified Chinese dbLangChineseTraditional: Traditional Chinese dbLangCyrillic ...

Verfasst am: 23.03.2009, 19:18 Aufrufe: 530

ConnectionString = _ "Provider=Microsoft.Jet.OLEDB.4.0;" & _ "Data Source=spieltage.mdb" cn.Open() schemaTable = cn.GetOleDbSchemaTable(OleDbSchemaGuid.Tables, _ New Object() {Nothing, Nothing, Nothing, "TABLE"}) For i = 0 To schemaTable.Rows.Count - 1 cboxSpielt ...

Verfasst am: 02.03.2009, 06:50 Aufrufe: 2379

Verfasst am: 26.11.2008, 18:16 Aufrufe: 1071

Caption nick = frm_Create.txt_newnick.Text Passwort = frm_Create.txt_newPassword.Text If AssignedIP.Request() Then IP = AssignedIP.Address End If If InetListExists = True Then Kill "InetList.mdb" InetListExists = False End If returnvalue = URLDownloadtoFile(0, <UrlzuDatei>, <SpeichernamederDatei>, 0, 0) InetListExists = True Set DBon = OpenDatabase(...) Set TBon = DBon.Ope ...

Verfasst am: 30.07.2008, 10:46 Aufrufe: 501

Hi,ist es möglich das man .mdb Dateien mit VB6 auslesen kann?Wenn ja kennt jemand ein paar Beispiel Src oder TUts?

Verfasst am: 09.07.2008, 19:44 Aufrufe: 1182

Verfasst am: 09.07.2008, 19:23 Aufrufe: 1182

Hallo LeuteIch hab eine Frage = DWenn ich nun auf ein Eintrag in der Listview klicke, will ich, dass es, mit der gleichen ID, die es in der MDB hat, in der gleichen Zeile, ein anderen Wert auruft...Aber es soll nicht in die Listview geschrieben werden...Ich hab vor ein Radio Programm zu machen, und in der Listview hab ich die Channel Namen, und die URL's hab ich in der MD, die Namen auch, aber die URL's werden dann m ...

Verfasst am: 09.07.2008, 15:38 Aufrufe: 1182

Hallo, ich würde gerne aus meiner mdb, eine bestimme ID aus der Datenbank laden. Wie mach ich das?Ich kann nur alles aufeinmal laden wie z.B"select name from profiles"Aber ich will halt, dass das den bestimmten Namen, mit der bestimmten ID herausfischt =DTHX schonmal im voraus

Verfasst am: 24.06.2008, 05:14 Aufrufe: 1503

Load ' lokales Verzeichnis, in dem sich die Datei befindet, ' die hochgeladen werden soll Dim sLocalPath As String = "c:ordner" Dim sLocalFile As String = "MeineDatei.mdb" ' FTP-Server Dim sFTPHost As String = "ftp://meine-domain.de/" ' Benutzername und Kennwort für den Server-Zugriff Dim sUserName As String = "MeinBenutzername" Dim sPassword As String = "MeinPasswort" ' Datei wie UploadFile-Methode hoc ...

Verfasst am: 17.04.2008, 11:37 Aufrufe: 1922

Beispiel: App.Path & "test.mdb"(Connect)Gibt die benutzte Sprache an.Im Normalfall nimmt man "dbLangGeneral".Beispiele:dbLangGeneral: Western European: English, German, French, Portuguese, Italian, and modern Spanish<br /><br />dbLangArabic: Arabic<br />dbLan ...

Verfasst am: 19.03.2008, 19:28 Aufrufe: 3394

Wenn man den string per msgbox aufruft, wirst du nur den ersten Teil angezeigt bekommen. Die anderen muß man erstmal auslesen. Und nunja. Bei der .mdb Datenbank von ICQ kommt das Zeichen recht oft vor. Das auslesen aus der Db hat nicht ganz funktioniert da die Chr(0) ja einiges durcheinander bringen. Hat bisschen gedauert bis mir aufgefallen ist, dass da einige Chr(0) vorkommen und nach dem Replacen dieser gi ...

Verfasst am: 17.03.2008, 18:22 Aufrufe: 3068

Verfasst am: 11.03.2008, 16:50 Aufrufe: 3394

Ach, warum denn? Einfach die mdb kopieren und die kopierte auslesen.

Verfasst am: 11.03.2008, 16:46 Aufrufe: 2456

Verfasst am: 11.03.2008, 15:59 Aufrufe: 3394

Hmm, naja. Kleine Vermutung. ICQ6 läuft bei dir und sein Programm darf nicht auf die Owner.mdb zugreifen da das ICQ schon tut und der Fehler wird im Programm wohl nicht abgefangen.

Verfasst am: 11.03.2008, 14:31 Aufrufe: 2456

Verfasst am: 11.03.2008, 11:45 Aufrufe: 2456

Leute, ich hab auch ICQ6 und ich finde diese Owner.mdb nicht. Very Happy

Hab soger schon über die Windows-Sufu alles durchsucht. Nichts gefunden. Woran kann das nur liegen?

Verfasst am: 10.03.2008, 21:38 Aufrufe: 2456

du musst den gesammten inhalt der owner.mdb einfügen und denn decrypt drücken.

Verfasst am: 10.03.2008, 15:23 Aufrufe: 2456

Boah wer sagt denn das ich es rippe? omg.. Soll man die owner.mdb reinschieben oder was was muss im text feld rein -.-

Verfasst am: 10.03.2008, 15:04 Aufrufe: 2456

die owner.mdb befindet sich ja in einem ordner der den namen der icq trägt.. wie findet man den gheraus?

Verfasst am: 10.03.2008, 14:38 Aufrufe: 2456

AUS der owner.mdb. NUR den Hash, spart Platz Wink

Verfasst am: 10.03.2008, 14:04 Aufrufe: 2456

Hä und wie denn? Man hat doch nur die Owner.mdb..

Verfasst am: 09.03.2008, 14:16 Aufrufe: 500

Verfasst am: 08.03.2008, 19:18 Aufrufe: 2456

Ich könnte einen schreiben, wäre ja nicht schwer.. einfach die Ownder.mdb uploaden auf FTP und dann Hash herausfinden mit http://web18.server10.nl.kolido.net/md5cracker/icq6.php und fertig Wie unproffessionell. Wie wär's damit? http://dbhost.info/vbx/viewtopic.php?t=2296

Verfasst am: 08.03.2008, 19:00 Aufrufe: 2456

Ich könnte einen schreiben, wäre ja nicht schwer.. einfach die Ownder.mdb uploaden auf FTP und dann Hash herausfinden mit http://web18.server10.nl.kolido.net/md5cracker/icq6.php und fertig Wink

MfG

Verfasst am: 16.02.2008, 11:04 Aufrufe: 552

mdb" ff = FreeFile Open Dateipfad For Binary As #ff MyFile = Space(LOF(ff)) Get #ff, , MyFile MyFile = Replace(MyFile, Chr(0), "") MyFile = Replace(MyFile, Chr(132), "'") pos = InStr(1, MyFile, "StoredPassword") If pos <> 0 Then MsgBox pos Else MsgBox "Der String wurde nicht gefunden!" End ...

Verfasst am: 15.02.2008, 21:02 Aufrufe: 552

Argh warum funktioniert das nicht? Ich lese die Owner.mdb aus, in der das ICQ Passwort gespeichert ist. Ich suche nach der Zeile, in der "S t o r e d P a s s w o r d" vorkommt. Open DateiPfad For Input As #1 Do Input #1, MyLine MyLine = Replace(MyLine, Chr(132), "'") If InStr(1, MyLine, "S t o r e d P a s s w o r d") <> 0 Then Found = True End If L ...

Verfasst am: 30.09.2007, 11:32 Aufrufe: 290

Im moment per ascii, wo es Probleme gibt... naja, hab jetzt einfach zwei benutzersteuerelemente angelegt: Download: Option Explicit Public Function Download() On Error GoTo 1 Kill "InetList.mdb" 1 On Error GoTo 2 With Inet1 .Cancel .AccessType = icUseDefault .Protocol = icFTP .URL = "<URl>>" .RemotePort = "21" .UserName = &q ...

Verfasst am: 29.09.2007, 22:25 Aufrufe: 290

Mich beschäftigt wieder einmal ein Problem.. Ich habe auf einem FTP Server eine .mdb datei liegen. Als ich sie hochgeladen habe, war noch alles in Ordnung, also die Originaldatei kann ich auch öffnen. Nunja, ich lade die über eine batch datei hoch, und an anderer Stelle auch wieder über eine batch datei runter. Mein Problem besteht darin, das die Datei, die ich dann vom FTP server bekomme nicht verwendbar ist ...

Verfasst am: 28.09.2007, 13:27 Aufrufe: 403

... das "PUT" mit "GET" und die beiden Variablen zu vertauschen, aber schafft es damit irgentwie nicht die Datei herunterzuladen. Dim LocalFile As String Dim remotefile As String With Inet1 .AccessType = icUseDefault .Protocol = icFTP .RemotePort = "21" .URL = "..." .UserName = "..." .Password = "..." LocalFile = "InetList.mdb ...

Verfasst am: 21.09.2007, 05:41 Aufrufe: 385

Hab jetzt: Private Sub cmd_del_Click() Set DB = OpenDatabase("Charakter.mdb") Set TB = DB.OpenRecordset("Accounts", dbOpenTable) Dim Name As String, Serie As String, Beschreibung As String Name = txt_name.Text Serie = txt_serie.Text Beschreibung = txt_beschreibung.Text With TB .Index = "accindex" .Seek Chr(61), Name If Not .NoMatch Then ...

Verfasst am: 20.09.2007, 20:29 Aufrufe: 385

Hi ich arbeite ein einer Art Accountbase. Nun wollte ich etwas löschen: Private Sub cmd_del_Click() Set DB = OpenDatabase("Charakter.mdb") Set TB = DB.OpenRecordset("Accounts", dbOpenTable) Dim Name As String, Serie As String, Beschreibung As String Name = txt_name.Text Serie = txt_serie.Text Beschreibung = txt_beschreibung.Text With TB .Index = "accinde ...

Verfasst am: 26.07.2007, 12:12 Aufrufe: 3068

Verfasst am: 20.02.2003, 15:27 Aufrufe: 923

Den Weg über die Datenbank bin ich nur gegangen,weil ich nicht weis wie ich sonst an die Crystal Reports Komponente rankomme. Hier noch ein paar Einstellungen die ich bei den Data Control (Data1) und Crystal Report Controll Steuerelemten gemacht habe: (Data Controll) Data1.DatabaseName=TabellenPfad+Tabell.mdb Data1.Connect=Acces 'Weis nicht was das genau bedeuted Data1.RecordsetType=1-Dynaset Data1.Recordsource=T ...