War auch nur der Vollständigkeit halber.
mfG Gü
mfG Gü
Dim conn As New Data.SqlServerCe.SqlCeConnection("Data Source =" & ConfigVar.DiamobSQLFile & ConfigVar.DiamobSQLDB) Dim vKundennummer As String Dim test1() As Data.SqlServerCe.SqlCeDataReader Dim test2() As Data.SqlServerCe.SqlCeDataReader Dim test3() As Data.SqlServerCe.SqlCeDataReader Dim test4() As Data.SqlServerCe.SqlCeDataReader Dim test5() As Data.SqlServerCe.SqlCeDataReader Try conn.Open() vKundennummer = InputBox("Bitte Kundennummer angeben.", "Eingabeaufforderung") Dim sel1 As New Data.SqlServerCe.SqlCeCommand("SELECT KndNr FROM localsav WHERE KndNr = '" & vKundennummer & "'", conn) Dim sel2 As New Data.SqlServerCe.SqlCeCommand("SELECT KndArtNr FROM localsav WHERE KndNr = '" & vKundennummer & "'", conn) Dim sel3 As New Data.SqlServerCe.SqlCeCommand("SELECT Lagerort FROM localsav WHERE KndNr = '" & vKundennummer & "'", conn) Dim sel4 As New Data.SqlServerCe.SqlCeCommand("SELECT maxmenge FROM localsav WHERE KndNr = '" & vKundennummer & "'", conn) Dim sel5 As New Data.SqlServerCe.SqlCeCommand("SELECT Menge FROM localsav WHERE KndNr = '" & vKundennummer & "'", conn) test1 = sel1.ExecuteReader() test2 = sel2.ExecuteReader() test3 = sel3.ExecuteReader() test4 = sel4.ExecuteReader() test5 = sel5.ExecuteReader() MessageBox.Show(test1(0).GetString(0)) MessageBox.Show(test2(0).GetString(0)) MessageBox.Show(test3(0).GetString(0)) MessageBox.Show(test4(0).GetString(0)) MessageBox.Show(test5(0).GetString(0)) Catch err As Exception MessageBox.Show("Datensätze nicht gefunden", "DIALOG mobil") End Try conn.Close()
Der Wert vom Typ "System.Data.SqlServerCe.SqlCeDataReader" kann nicht zu "1-dimensionales Array von System.Data.SqlServerCe.SqlCeDataReader" konvertiert werden. C:\Dokumente und Einstellungen\vandeyk\Desktop\lernen\DeviceApplication1\DeviceApplication1\frm_Erfassen.vb
Dim test1() As Data.SqlServerCe.SqlCeDataReader
Dim test1 As Data.SqlServerCe.SqlCeDataReader
Try conn.Open() ... Catch err As Exception MessageBox.Show("Datensätze nicht gefunden", "DIALOG mobil") Finally conn.Close() End Try
test1 = sel1.ExecuteReader() test2 = sel2.ExecuteReader() test3 = sel3.ExecuteReader() test4 = sel4.ExecuteReader() test5 = sel5.ExecuteReader()
Die von .NET Compact Framework verwendete Version unterstützt kein spätes Binden. C:\Dokumente und Einstellungen\vandeyk\Desktop\lernen\DeviceApplication1\DeviceApplication1\frm_Erfassen.vb
Could not find Resource Assembly
phpconnect.ContentLength = POSTstring.Length
phpconnect.ContentLength = encodedPOST.Length
Comment