VBA ACCESS API Funktionen

[chaosfreaky]

Zu mein Projekt :

Ich möchte in meine Datenbank ein Kartenleser ein binden und über KV karten die kunden abrufen lassen , per Seriennummer !

Eigentlich war mal eine Telefonkarte gedacht nur da soll es zu viele Gleiche Karten Signaturen geben !

Ich brauch aber eine eindeutige ID wie die auf dem Personalausweis rechts oben

Private Declare Function MCardReadMemory Lib "MCSCM.DLL" ( _

  ByVal hMCard As Long, _

  ByVal bMemZone As Byte, _


  ByVal dwOffset As Long, _

  ByVal pbReadBuffer As String, _

  ByRef pbReadLen As Long _

) As Long

--------------------------------------------------------------------------

Public Function ReadCard( _

Optional DatenZone = 0, _

Optional DatenOffSet = 0, _

Optional DatenLaenge = 100, _

Optional DurchlaufNr = 1)


Dim lReturn As Long

Dim Buffer As String

Buffer = Space(DatenLaenge)


lReturn = MCardReadMemory(hmCard, DatenZone, DatenOffSet, Buffer, DatenLaenge)

If lReturn = 0 Then ReadCard = Buffer

  If (lReturn <> 0) Then

    If DurchlaufNr = 1 Then

        ConnectCard

        ReadCard = ReadCard(DatenZone, DatenOffSet, DatenLaenge, 2)

    End If

  End If

End Function

geändert auf

Public Declare Function MCardReadMemory Lib "MCSCM.DLL" ( _

      ByVal hmCard as Long, _

      ByVal bMemZone as Byte, _

      dwOffset as Long, _

      ByRef [b]pbReadBuffer[/b] as [b]tyReadWriteBuffer[/b], _

      ByRef pbReadLen as Long _

) as Long

--------------------------------------------------------------------------

Public Type tyReadWriteBuffer

   arrBuff(2048) as Byte

End Type

und jetzt stehe ich irgend wie aufm schlauch .

Hex lesen und Anzeigen lassen.

schon klar es muss eine Schleife her die das ganze dann zusammen setzt

damit dann "E1 77 G5" zum Bsp. raus kommt. Aber wie jetzt ??:confused:

Und es soll auch so gespeicht werden !

Im Klartext:

KV-Seriennummer lesen, Kunde suchen, Anzeigen !

Bzw. KV-Seriennummer lesen als hex , Speichern als hex wert , und Kunde zu sortieren. Steht ja auch schon auf der karte kann also gleich mit übernommen werden.

Freue mich über jeden Tipp !!!