terve, Onko mahollista päivittää Access-tietokantaa automaattisesti recordset objektin avulla.
Eli avaan yhteyden com-porttiin MSCommilla, lisään tietoa mitä portille tulee Recordsetillä taulussa olevaan tietueesee ja lopuksi suljen portin.
Siis tämän tyyylin makro Accessii vba:lla onkos mahollista?
Miten nuo MScomm ja recodrset tulisi yhdistää että homma toimii?
VBA:ssa MSComm ja Recordset
problem
2
364
Vastaukset
- mmm
koodia suoraan ilmasta:
...koodia...
MsComm.PortOpen = True
...koodia...
Private Sub MsComm_OnComm()
dim rst as recordset
set rst = currentdb.openrecordset("SELECT * FROM Taulu WHERE Jokukenttä = 'arvo'")
rst.fields("Kenttänimi") = MsComm.Input
rst.close
set rst = Nothing
end sub
...koodia...
MsComm.PortOpen = False
...koodia...
Referenssit pitää olla DAO 3.6:een muistaakseni ainakin. MsComm pitää olla rekisteröity oikein. Asynkronisuus tuottaa varmaan päänvaivaa, tiedoston loppumerkki auttanee tässä.- problem
tommoseen päädyin...miltä vaikuttaa gurujen silmin?
Private Sub Form_Load()
MSComm1.CommPort = 1
MSComm1.Handshaking = 0
MSComm1.Rthreshold = 0
MSComm1.Settings = "9600,N,8,1"
MSComm1.InputLen = 0
MSComm1.PortOpen = True
End Sub
Private Sub MSComm1_OnComm()
AddScanRecords_Open
End Sub
Sub AddScanRecords()
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim StartTime As Date
StartTime = Now()
Set cn = CurrentProject.Connection
Set rs = New ADODB.Recordset
rs.Open "ScanResults", cn, adOpenKeyset, adLockOptimistic ' ScanResults is the name of the table
Do While Now() < StartTime TimeSerial(0, 0, 1) ' test run for one second - can Add hours Or minutes
rs.AddNew
' this is where you would wait for and insert the bar code.
rs![BarCode] = MSComm1.Input ' BarCode is the field name you would replace "testthissub" with the bar code input
rs![ScanDate] = Now()
rs.Update
Loop
MSComm1.PortOpen = False ' Close the com port
End Sub
Ketjusta on poistettu 0 sääntöjenvastaista viestiä.
Luetuimmat keskustelut
Taisin tehdä virheen
Kaipaan sua enemmän kuin kuvittelin. Luulin, että helpottuisin, mutta olinkin täysin väärässä. Vieläkö vastaisit minulle442992Hyvä että lähdit siitä
Ties mitä oisin keksinyt jos oisit jäänyt siihen, näit varmaan miten katoin sua.... 😘🤭😎💖362631Et siis vieläkään
Et ilmeisesti ole vieläkään päässyt loppuun asti mun kirjoituksissa täällä. Kerro ihmeessä sit, kun valmista 😁 tuskin k532584Koronarokotus sattui oudon paljon nyt sairaanhoitaja Tanja 46 istuu pyörätuolissa
Pitkä piina piikistä Kun Tanja Vatka käy suihkussa, tuntuu kuin ihoa revittäisiin raastinraudalla irti. Hän on kärsinyt1022258Nyt tuntuu siltä, että on pakko päästä puhumaan kanssasi
Tuntuu että sekoan tämän kaiken takia. Miehelle482094Olisitko mies valmis?
Maksamaan naisellesi/vaimollesi/tyttöystävällesi elämisestä syntyvät kulut, ruokailun, vuokran ja muut välttämättömät me3421893- 1501546
- 731408
vieläkin sanoa voin...
💖💛💖💛💖💛💖💛💖 💛 Beijjjbeh 💛 Kaks vuotta tänään täällä. Miten hitossa jotkut on jaksaneet kymmeniä vuos231188Nainen onko sulla supervoimmia ?
Voisitko auttaa miestä mäessä? Tarjota auttavan käden ja jeesata tätä miestä? Tai antaa olla et sä kuitenkaan auta.281175