An intuitive utility to help find the CSS path to UI elements on a webpage. These paths are used frequently in a variety of front-end development and QA automation tasks.
One of a set of tools we're offering as a way of saying thank you for being a part of the community.
Visual Basic and CE Database
Can someone post some sample code to access a database on a windows CE based machine.
I have the database and application residing in the same location(maybe that is the problem)
I would like to know how to connect to the database with the adodce reference.
I need to be able to extract data out to fill a combo box and then also insert data collected from two text fields.
Any sample code would be great.
Thanks in advance.
I have the database and application residing in the same location(maybe that is the problem)
I would like to know how to connect to the database with the adodce reference.
I need to be able to extract data out to fill a combo box and then also insert data collected from two text fields.
Any sample code would be great.
Thanks in advance.
Asked:
-
2
-
2
- +1
1 Solution
I have gone to both of those sites and I do not see any sample code, the information on those sites is the same that is in my help files for embedded tools, niether provide helpful samples.
Hope this helps!!
Private Sub Form_Load()
Combo2.Clear
Dim rs
Set rs = CreateObject("ADOCE.Record
rs.Open "Tn", "\my documents\NM.cdb"
Do While Not rs.EOF
Combo1.AddItem rs.Fields("Noun").Value
rs.MoveNext
Loop
Private Sub Combo2_Click()
Combo1.Text & "'"
Combo1.List(Combo1.ListInd
Dim rsV
Dim sql2
List1.Clear
Set rsV = CreateObject("ADOCE.Record
sql2 = "select attribute from Ta where noun = '" & Combo1.List(Combo1.ListInd
"' and modifier = '" & Combo2.List(Combo2.ListInd
rsV.Open sql2, "\my documents\NM.cdb"
Do While Not rsV.EOF
List1.AddItem rsV.Fields("attribute").Va
rsV.MoveNext
Loop
rsV.Close
Set rsV = Nothing
Option Explicit
Private Sub Combo1_Click()
Combo2.Clear
List1.Clear
Dim rst
Dim sql
Set rst = CreateObject("ADOCE.Record
Combo1.Text & "'"
sql = "select MODIFIER from Tnm where noun = '" & Combo1.List(Combo1.ListInd
rst.Open sql, "\my documents\NM.cdb"
Do While Not rst.EOF
Combo2.AddItem rst.Fields("modifier").Val
rst.MoveNext
Loop
rst.Close
Set rst = Nothing
End Sub
fordraiders
Private Sub Form_Load()
Combo2.Clear
Dim rs
Set rs = CreateObject("ADOCE.Record
rs.Open "Tn", "\my documents\NM.cdb"
Do While Not rs.EOF
Combo1.AddItem rs.Fields("Noun").Value
rs.MoveNext
Loop
Private Sub Combo2_Click()
Combo1.Text & "'"
Combo1.List(Combo1.ListInd
Dim rsV
Dim sql2
List1.Clear
Set rsV = CreateObject("ADOCE.Record
sql2 = "select attribute from Ta where noun = '" & Combo1.List(Combo1.ListInd
"' and modifier = '" & Combo2.List(Combo2.ListInd
rsV.Open sql2, "\my documents\NM.cdb"
Do While Not rsV.EOF
List1.AddItem rsV.Fields("attribute").Va
rsV.MoveNext
Loop
rsV.Close
Set rsV = Nothing
Option Explicit
Private Sub Combo1_Click()
Combo2.Clear
List1.Clear
Dim rst
Dim sql
Set rst = CreateObject("ADOCE.Record
Combo1.Text & "'"
sql = "select MODIFIER from Tnm where noun = '" & Combo1.List(Combo1.ListInd
rst.Open sql, "\my documents\NM.cdb"
Do While Not rst.EOF
Combo2.AddItem rst.Fields("modifier").Val
rst.MoveNext
Loop
rst.Close
Set rst = Nothing
End Sub
fordraiders
Question has a verified solution.
Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.
Have a better answer? Share it in a comment.
Join & Write a Comment Already a member? Login.
Featured Post
ZipGrep is a utility that can list and search zip (.war, .ear, .jar, etc) archives for text patterns, without the need to extract the archive's contents.
One of a set of tools we're offering as a way to say thank you for being a part of the community.
Tackle projects and never again get stuck behind a technical roadblock.
Join Now
http://msdn.microsoft.com/library/default.asp?URL=/library/wcedoc/adoce31/adoguide.htm
Adding the ADOCE Control to an Application
http://msdn.microsoft.com/library/default.asp?URL=/library/wcedoc/adoce31/adoguide_10.htm