Com-port mit VB-Access lesen

Computer: Software & Programmierung Visual Basic
#21

Hallo,

ich hab MSFlexGrid under Components zugefügt und das ding
nun…

??? Da machst Du schon das Erste falsch. :smile:
VB starten. Dann in der Auswahl nicht auf Standard.exe klicken, sondern auf ‚VB-Pro‘ oder ‚Enterprise‘ Steuerelemente. Dann ist die Werkzeugleiste deutlich umfangreicher und auch das Flexgrid ist verfügbar, ohne es erst über ‚Projekte‘ einfügen zu müssen.

ich glaub ich mach irgend was dummes falsch,
.additem/.row/.col usw. kennt mein Programm nicht…
kann es sein da ich irgend was noch zufügen muss?(verweis z.b)

Ich bau mal einen Code. Nimm ein neues Projekt, lege einfach n ur ein Flexgrid darauf und füge den Code ein. Dann führst Du den Code aus, der muss laufen.

In der ersten Spalte steht die Teilennummer.
In der zweiten Spalte steht ein zufällig gewähltes Zeichen
in der Ditten Spalte steht eine zufällig gewählte Zahl.

Wenn Du in eine Spalte klickst, wird die Tabelle nach dem Inhalt dieser Spalte sortiert.

Gruß Rainer

Option Explicit

Private Sub Form\_Load()
 Dim r As Integer
 Randomize Timer
 Me.Show
 DoEvents
 MSFlexGrid1.Cols = 3
 MSFlexGrid1.Rows = 4
 MSFlexGrid1.FixedCols = 0
 For r = 1 To MSFlexGrid1.Rows - 1
 MSFlexGrid1.TextMatrix(r, 0) = r
 MSFlexGrid1.TextMatrix(r, 1) = Chr(65 + Int(Rnd(1) \* 23))
 MSFlexGrid1.TextMatrix(r, 2) = Int(Rnd(1) \* 1000)
 Next
End Sub

Private Sub MSFlexGrid1\_Click()
 MSFlexGrid1.Sort = 1
End Sub
#22

Tippfehler …
Immer diese Tippfehler.

‚Teilennummer‘ hätte Zeilennummer heißen sollen. :smile:

Aber der Code ist fehlerfrei, der ist getestet.

#23

er Funktioniert und endlich kann ich anfangen los zu basteln ^-^

danke Rainer

#24

Hallo,

so, Flexgid läuft, dann Datenbank. :smile:

Bau mit Access 2000 oder höher eine ‚C:\Test.mdb‘. Eine Tabelle taufst Du ‚Tabelle‘.

Schreib mit Access ein paar Datensätze rein. Für den ersten Test ist das am bequemsten.

Dann baust Du ein neues VB-Projekt.
Auf die Form legst Du ein ADO- Datenbank Steuerelement. ‚ADODC1‘.
Außerdem ein MSHFlexgrid.
In den Eigenschaften des MSHFlexgrids wählst Du als Datasource das ADODC1 aus.

Nun der Code:

Option Explicit

Dim strSQL As String
Dim objRS As ADODB.Recordset
Dim objConnection As ADODB.Connection

Private Sub Verbinden()
 Dim DB As String
 DB = "C:\Test.mdb"
 strSQL = "SELECT \* FROM Tabelle ;"
 Set objConnection = New ADODB.Connection

 With objConnection
 .CursorLocation = adUseClient
 .Mode = adModeShareDenyNone
 .Provider = "Microsoft.Jet.OLEDB.4.0"
 .ConnectionString = DB
 .Open
 End With

 Set objRS = New ADODB.Recordset
 With objRS
 Set .ActiveConnection = objConnection
 .CursorLocation = adUseClient
 .CursorType = adOpenStatic
 .LockType = adLockOptimistic
 .Source = strSQL
 Call .Open
 End With

 Set Adodc1.Recordset = objRS

End Sub

Private Sub Form\_QueryUnload(Cancel As Integer, UnloadMode As Integer)
 objRS.Close
End Sub

Ungetestet!

Wenn ich mich nicht vertippt habe, soll das Projekt starten und Deine Datensätze sollen im MSHFlexgrid stehen.

Für den Anfang wird das reichen.
Das Recordset steht in ADODC1, damit kannst Dui weiter arbeiten.

Gruß Rainer

#25

die Datenbank funtionirt auch

danke noch mal Rainer