nico_klafu

aha das heist ich kopiere alles in EIN (oder brauch ich mehrere) Modul hinein aufruf werd ich schon schaffen und villeicht noch ideen wie ich die auwahl der mp3 per OpenFileDialog gestalte danke für den link mfg Nico

sprache ist vb6 ' API-Deklaration Private Declare Function mciSendString Lib "winmm.dll" _ Alias "mciSendStringA" (ByVal lpszCommand As String, _ ByVal lpszReturnString As String, _ ByVal cchReturnLength As Long, _ ByVal hwndCallback As Long) As Long Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click 'MCI(öffnen) If mciSendString("open " & "D:\Videos\13-Wild Wild West feat Dru Hill a-Will Smith.mp3" & _ " type MPEGVideo alias MyMP3", 0, 0, 0) = 0 Then ' MP3 abspielen mciSendString("play MyMP3 from 0", 0, 0, 0) End If End Sub Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click mciSendString("stop MyMP3", 0, 0, 0) mciSendString("close MyMP3", 0, 0, 0) habe es mit dem code versucht funkt aber noch immer nicht wollte die auswahl der mp3 per OpenFileDialog gestalten habe auch zu diesen problem keine lösung gefunden bin für jede hilfe dankbar mfg Nico

Dim MyString As String = "Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source=Sportartikel.mdb;Mode=Share Deny None;Extended Properties='';Jet OLEDB:System database='';Jet OLEDB:Registry Path='';Jet OLEDB:Engine Type=5;Jet OLEDB:Database Locking Mode=1;Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Global Bulk Transactions=1;Jet OLEDB:Create System Database=False;Jet OLEDB:Encrypt Database=False;Jet OLEDB:Don't Copy Locale on Compact=False;Jet OLEDB:Compact Without Replica Repair=False;Jet OLEDB:SFP=False" Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim myconn As New OleDb.OleDbConnection(mystring) Dim myselectcommand As String = "SELECT User.ID, User.Benutzername, User.Kennwort, User.Vorname, User.Name FROM [user] WHERE )" Dim mycommand As New OleDb.OleDbCommand(myselectcommand,myconn) Dim myreader As OleDb.OleDbDataReader myconn.Open() myreader = mycommand.ExecuteReader myreader.Close() myconn.Close() End Sub das ist der code den ich bis jetzt habe die datenbank schaut folgendermaßen aus ID(primärschlüssel) (zahl ) Vorname (Text) Name (Text) Benutzername (Text ) Kennwort (Text ) Weckzeit (Datum/Uhrzeit) wie mache ich jetzt die abfrage ob der BENUTZER das richtige PASSWORT hat zu deinen vorschlag es sicher zu machen bin immer für ideen und verbesserungs vorschläge offen mfg nico

ich habe einen Anmeldebildschirm mit benutzername: und kennwort: benutzername und kennwort hab ich in einer Acces Datenbank stehen und ich habe keine ahnung wie ich das jetzt abfrage ob der benutzername das kennwort richtig eingegeben weis nur nicht wie man die abfrage gestaltet hereingeholt habe ich die datenbank per command wäre für den code dankbar danke mfg Nico