Floh-2001

Hallo Wenn Ich den folgenden code eingebe. da_ja_aw = New OleDbDataAdapter("SELECT *, POWER(POWER(erg_div), 0.5) AS Absolutwert FROM jassen ORDER BY Absolutwert", con_ja) bringt er folgende Fehlermeldung: undefinierte Funktion "POWER" in Ausdruck was bedeutet das? Was muss Ich ändern? Danke

Hallo Thomas Ich arbeite nicht mit einer sql Datenbank sondern einer Access Datenbank. Trotzdem hab Ich dein Scrip ausprobiert und habe es wie folgt eingebaut ds_ja.Tables.Add(dt_ja) da_ja = New OleDbDataAdapter("SELECT *, POWER(POWER(erg_div, 2), 0.5) AS Absolutwert FROM Zahlen", con_ja) da_ja.Fill(dt_ja) Dim cb As New OleDbCommandBuilder(da_ja) Dim cbs As New DataView(dt_ja) cbs.Sort = "absolutwert" bs_ja.DataSource = dt_ja bss_ja.DataSource = cbs DataGridView1.DataSource = bss_ja DataGridView1.Refresh() Er sortiert es mir trotzdem nicht. Hier eine Listing meiner Access Tabelle. Dim sql As String = "CREATE TABLE " & sTableName & "(" & _ "Spielernr short NOT NULL PRIMARY KEY, " & _ "Name Varchar(30) NOT NULL, " & _ "Vorname Varchar(30) NOT NULL, " & _ "Rang short, " & _ "Tisch1 short, " & _ "Ergebnis1 short, " & _ "Sack1 Short, " & _ "Tisch2 Short, " & _ "Ergebnis2 Short, " & _ "Sack2 Short, " & _ "Tisch3 Short, " & _ "Ergebnis3 Short," & _ "Sack3 Short," & _ "erg_ges Short," & _ "Sack_ges Short," & _ "erg_div Short" & _ ")" die Tabelle soll nach erg_div sorteiert werden.

Danke Es Klappt

Danke für eure Hilfe, habe das Problem wie folgt gelösst. If ofd.FileName = "" Then Beep() MsgBox("Zuerst Datenbank öffnen") ofd.FileName = "" Me.Hide() Form1.Show() Exit Sub End If

Danke, hab es nochmal versucht und jetzt klappts.

Hallo , Ich suche schon seit längerem eine lösung um mein Datagrid nach einem Absolut-wert zu sortieren. Auch hier im Forum hab Ich nichts gefunden. Vielleicht kann mir einer Helfen, wäre sehr Dankbar. Habe Folgendes Problem Ich habe im Datagridview eine Spalte mit Zahlen (Positiv und Negativ) und die möchte Ich gerne Sortieren. Beispiel: 100 -20 -50 76 32 -4 2 50 usw. die möchte Ich gerne folgendermasen Sortiert haben. 2 -4 -20 32 50 -50 76 100 Hier mein Script: ** erg_div ist die Spalte die Sortiert werden soll bs_ja.EndEdit() da_ja.Update(ds_ja.Tables(0)) dt_ja.Clear() da_ja.Fill(dt_ja) Dim cbss As New DataView(dt_ja) cbss.Sort = "erg_div asc" bsss_ja.DataSource = cbss DataGridViewr1.DataSource = bsss_ja Danke für Eure Hilfe

Hallo El Ninjo Komme nicht ganz mit wie du das meinst. Verstehe ICh das Richtig das Ich versuchen soll die TEXTBOX5.TEXT in ' ' stellen soll. Danke Markus

Datenbank Aktualiesieren Hallo Leute Ich schaffe es nicht, das ich mit einem Script , die Inhalte von textboxen in einer Access Datenbank aktualiesiere. Ich habe es mit dem Update Befehl versucht aber ich habe ein Fehler drin, er brinkt mir folgende Fehlermeldung: Syntaxfehler in update - Anweisung Kann mir Bitte jemand helfen? Datenbank ist geöffnet und der Reader gefüllt. Hier ist mein Update Code: Cmd1.CommandText = "update jassen set name = " & _ TextBox3.Text & ", " & _ "'vorname ='" & TextBox4.Text & ", " & _ "'ergebnis1 ='" & TextBox5.Text & ", " & _ "'sack1 ='" & TextBox6.Text & ", " & _ "'tisch1 ='" & TextBox1.Text & ", " & _ "'where spielernr ='" & (reader1("spielernr")) anzahl = Cmd1.ExecuteNonQuery() Danke Markus

Hallo TDM Mit deinem Tipp hat es Funktioniert Danke

Danke Perdian Habe es durchgelesen und verstehe jetzt was du meinst. Werde in Zukunft darauf achten. Danke

was meinst du damit? "Hast du das getan?" Ich kann kein Englisch ! Sorry

In der Exception Meldung steht nur "max(spielernr)". Damit kann Ich nichts Anfangen und damit Ich da nicht immer auf OK klicken muss hab Ich es weggeschaltet.

Aufbau meiner Datenbank (Tabelle) Tabellen name = jassen Felder : spielernr. Nummerisch, Name und Vorname Charakter 30 es befinden sich 37 Datensätze in der Tabelle. Wenn Ich das oben genannte Skript durchlaufen lasse kommt bei mir Textbox1.text = "". Wenn Ich das oben genannte Skript nur mit spielernr (ohne max()) durchlaufen lasse bringt er mir alle 37 spielernr in derTextbox1 Ich Glaube das er mit max(Spielernr) keine Daten aus der Datenbank (Tabelle) lesen kann.

nein , da bringt er mir nur "max(spielernr)" und darum hab Ich sie weg geschaltet.

Sorry, hab Ich vergessen , hier meine lösung 'datagrid füllen Private Sub stamm_dbf__Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load Dim Pfad1 As String = ofd.FileName Dim Ordner_st As String Dim a() a = Split(Pfad1, "\") Ordner_st = ofd.InitialDirectory & (a(UBound(a) - 1)) & "\stammdaten.mdb" Dim Con_st As String = "Provider = Microsoft.jet.oledb.4.0;" & "Data source =" & Ordner_st Dim Con As New OleDbConnection(Con_st) ds_st.Tables.Add(dt_st) da_st = New OleDbDataAdapter("SELECT * FROM stammdaten", Con_st) da_st.Fill(dt_st) Dim cb As New OleDbCommandBuilder(da_st) bs_st.DataSource = dt_st DataGrid_stamm.DataSource = bs_st End Sub 'datengrid mit Beendenbutton verlassen und Daten speichern Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click If ds_st.HasChanges Then If MsgBox("Änderungen speichern?", MsgBoxStyle.Question Or MsgBoxStyle.YesNo) Then bs_st.EndEdit() da_st.Update(ds_st.Tables(0)) End If End If end sub

es befinden sich 37 Datensätze in der Datenbank (Tabelle).

das textbox1 Feld bleibt leer. Er findet die höchste Zahl nicht.

Danke für die Hinweise Was ich suche ist ein IF Function die mir prüft ob die Datenbank geöffnet ist. Ich schreibe ein Programm in VB8 wo Ich im Menue die Datenbank zuerst öffnen muss. Wenn Ich das nicht mache und zum Daten aufnehmen gehe bringt er mir eine Fehler Meldung das keine Datenbank geöffnet ist. Diese Fehlermeldung möchte Ich überspringen mit einer IF anweisung. Es handelt sich um eine Access Datenbank if Datenbank close then datenbank open oder direkt zum öffnen Form verweisen else programm ablauf end if

Hallo Leute Wer kann mir beim folgenden Link helfen. Ich sollte aus der Access Datenbank die höchste spielernr. suchen und in textbox 1 einfügen. Aber es klappt nicht. Danke con_ja.ConnectionString = "Provider = Microsoft.jet.oledb.4.0;" & "Data source =" & dsp.InitialDirectory Cmd.Connection = con_ja Cmd.CommandText = "SELECT max(spielernr) FROM jassen" Try con_ja.Open() reader = Cmd.ExecuteReader() Do While reader.Read() TextBox1.Text = (reader("max(Spielernr)")) MsgBox(TextBox1.Text) Loop Catch ex As Exception ' MsgBox(ex.Message) End Try reader.Close()

Habe das Problem selbst gelöst. Danke Floh-2001

Hallo Ich arebite mit 2 Datenbanken und da Ich sie nicht jedesmal öffnen und schliessen möchte, wäre es gut wenn das Programm das automatisch ausführt. Ich suche eine Lösung wo er mir Prüft ob die Datenbank con.open() noch offen ist oder nicht und dann je nach dem die DBF schliesst bzw. öffnet. z.b. Wenn DBF offen msgbox("DBF offen) else dbf open() msgbox("dbf wurde geöffnet") ende wer kennt da eine lösung Arbeite in vb8 Danke Markus

NEIN die eingabe wird mit verlassen durch tab oder maus nicht beachtet

Hallo MArtin Ich habe dein Script ausprobiert aber es geht nicht. Wenn Ich in textbox 1 tab drücke oder mit der Maus auf Textbox2 klicke wird der Inhalt von Textbox1 nicht überprüft. Entertaste ist gesperrt. Woran liegt das? Danke

Ich kenne nur die keypress funktion und das textbox1.leave funktion das Validate-Ereignis kenn ich nicht. ich bin totaler anfänger. Ich brauche das listing dazu damit ich mit den befehlen was anfangen kann. genauso wie und wo es eingebaut werden muss. Ich habe vor 2 monaten mit vb6 angefangen. sorry

wenn eine prüfung fehl schlägt bleibt er in der textbox und bringt eine meldung mittels msgbox. Kenne Beide Funktionen von euch nicht gibt es da detailierte angaben dazu. Wäre super wenn es eine lösung gebe. Danke