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

Hi Markus,

versuch mal die Strings aus den Textfeldern mit ' ' zu maskieren,

bei SQL werden damit Strings gekennzeichnet.

LG

Flo

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

Hast du das getan?

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.

Und die MessageBox im Catch-Block? Ist die auskommentiert, um die Diagnose zu erschweren?

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

ja, damit hat "er" Recht, wenns zB in der Tabelle keine Spieler gibt

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

Geht nicht ist keine ausreichende Fehlerbeschreibung.

Noch nie gewesen, wird's auch nie sein.

How To Ask Questions The Smart Way

Lesen. Jetzt!

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

Welche Funktion kennst Du nicht?

Frank

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

Zum einen das was Martin schreibt und alle drei Events wirst Du nie unter einen Hut bekommen. Du kannst allerdings innerhalb der beiden Eventbehandlungen die Methode validateBox oder wie auch immer aufrufen und dort die Prüfung machen. Die Frage ist nur was Du machst, wenn eine Prüfung fehl schlägt?

Frank

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