Goedemorgen,
Ik ben een beginnende vb amateur. Ik heb vroeger wat in Turbo Pascal lopen klooien om eenvoudige programmaatjes te laten werken met een Velleman interface kitje K8000.
Dat lukte aardig, alles was erg eenvoudig van opzet.
De kitjes werken alleen met een parralele poort en het waardes lezen van de kaart werkt niet met modernere pc's.
Nu Velleman een redelijk vergelijkbare USB versie van die kit heeft uitgebracht ben ik weer wat aant experimenteren.
Omdat ik een applicatie wil maken die op een pocketpc werkt heb ik me Visual Studio 2008 aangeschaft met de SDK voor Windows Mobile 6 Prof uitbreiding.
Wat wil ik maken?
Ik zou graag een applicatie maken op de PPC waarmee ik een database kan vullen.
De bedoeling is dat ik een pc met de kaart via USB aansluit, en deze de kaart laat aansturen met de waarden in de database.
De wijzigingen van de database zou ik via de PPC willen aanpassen.
Kortgezegd de ppc wijzigd de database, de pc leest de database en stuurd de kaart aan.
Dit mag best eenvoudig. Een knop, of een radiobutton op het scherm veranderd een waarde van 0 naar 1 of terug, verder geen uitgebreide dingetjes.
Nu ben ik al enkele dagen aan het stoeien om een progje te maken waarmee ik waardes in een database krijg. Enkele video's gevolgt en de code 1 op 1 gevolgd.
Ik heb een eenvoudig programmaatje overgenomen van een video. Als ik het spul run werkt alles totdat ik een wijziging wil laten opslaan in de database.
Ik heb met vs 2008 een database gemaakt, de applicatie leest de data in, en geeft het netjes weer. Zo snel als ik een wijziging op wil slaan komt de volgende melding:
Invalid Operation exception was unhandled
Update requires a valid UpdateCommand when passed DataRow collection with modified rows.
De code:
Form1:
Public Class Form1
Private Sub CustomerBindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CustomerBindingNavigatorSaveItem.Click
Me.Validate()
Me.CustomerBindingSource.EndEdit()
Me.TableAdapterManager.UpdateAll(Me.MycompanyDataSet)
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'TODO: This line of code loads data into the 'MycompanyDataSet.customer' table. You can move, or remove it, as needed.
Me.CustomerTableAdapter.Fill(Me.MycompanyDataSet.customer)
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim myform As New Form2
myform.Show()
End Sub
End Class
Form2
Public Class Form2
Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.CustomerTableAdapter1.Fill(Me.MycompanyDataSet1.customer)
End Sub
Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
BindingSource1.EndEdit()
CustomerTableAdapter1.Update(MycompanyDataSet1.customer) '( hier komt de foutmeling te staan in de editor)'
End Sub
End Class
Komt deze fout misschien omdat de code voor een eerdere versie van vb is geschreven?
Verder wordt in het filmpje een MDF database gemaakt, en ik krijg met de zelfde actie een SDF database.
Ik hoop dat iemand ermee kan, ikzelf vind zo'n berg info waar ik net niet voldoende mee kan. Vandaar mijn vraag.
Bedankt iedereen die de moeite heeft genomen mn verhaal te lezen en er misschien een eenvoudige oplossing voor heeft.
Ik ben een beginnende vb amateur. Ik heb vroeger wat in Turbo Pascal lopen klooien om eenvoudige programmaatjes te laten werken met een Velleman interface kitje K8000.
Dat lukte aardig, alles was erg eenvoudig van opzet.
De kitjes werken alleen met een parralele poort en het waardes lezen van de kaart werkt niet met modernere pc's.
Nu Velleman een redelijk vergelijkbare USB versie van die kit heeft uitgebracht ben ik weer wat aant experimenteren.
Omdat ik een applicatie wil maken die op een pocketpc werkt heb ik me Visual Studio 2008 aangeschaft met de SDK voor Windows Mobile 6 Prof uitbreiding.
Wat wil ik maken?
Ik zou graag een applicatie maken op de PPC waarmee ik een database kan vullen.
De bedoeling is dat ik een pc met de kaart via USB aansluit, en deze de kaart laat aansturen met de waarden in de database.
De wijzigingen van de database zou ik via de PPC willen aanpassen.
Kortgezegd de ppc wijzigd de database, de pc leest de database en stuurd de kaart aan.
Dit mag best eenvoudig. Een knop, of een radiobutton op het scherm veranderd een waarde van 0 naar 1 of terug, verder geen uitgebreide dingetjes.
Nu ben ik al enkele dagen aan het stoeien om een progje te maken waarmee ik waardes in een database krijg. Enkele video's gevolgt en de code 1 op 1 gevolgd.
Ik heb een eenvoudig programmaatje overgenomen van een video. Als ik het spul run werkt alles totdat ik een wijziging wil laten opslaan in de database.
Ik heb met vs 2008 een database gemaakt, de applicatie leest de data in, en geeft het netjes weer. Zo snel als ik een wijziging op wil slaan komt de volgende melding:
Invalid Operation exception was unhandled
Update requires a valid UpdateCommand when passed DataRow collection with modified rows.
De code:
Form1:
Public Class Form1
Private Sub CustomerBindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CustomerBindingNavigatorSaveItem.Click
Me.Validate()
Me.CustomerBindingSource.EndEdit()
Me.TableAdapterManager.UpdateAll(Me.MycompanyDataSet)
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'TODO: This line of code loads data into the 'MycompanyDataSet.customer' table. You can move, or remove it, as needed.
Me.CustomerTableAdapter.Fill(Me.MycompanyDataSet.customer)
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim myform As New Form2
myform.Show()
End Sub
End Class
Form2
Public Class Form2
Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.CustomerTableAdapter1.Fill(Me.MycompanyDataSet1.customer)
End Sub
Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
BindingSource1.EndEdit()
CustomerTableAdapter1.Update(MycompanyDataSet1.customer) '( hier komt de foutmeling te staan in de editor)'
End Sub
End Class
Komt deze fout misschien omdat de code voor een eerdere versie van vb is geschreven?
Verder wordt in het filmpje een MDF database gemaakt, en ik krijg met de zelfde actie een SDF database.
Ik hoop dat iemand ermee kan, ikzelf vind zo'n berg info waar ik net niet voldoende mee kan. Vandaar mijn vraag.
Bedankt iedereen die de moeite heeft genomen mn verhaal te lezen en er misschien een eenvoudige oplossing voor heeft.
