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