Joined
Last Seen
0 Reputation Points
Unknown Quality Score
No one has voted on any posts yet. Votes from other community members are used to determine a member's reputation amongst their peers.
0 Endorsements
Ranked #55.0K
3 Posted Topics
 | dim id as integer id=inputbox("Please Enter ID") adodc.recordset.find"[id]="&id  |
| | [B]This is Visual Basic 6 String Connection[/B] dim con as adodb.connection dim rs as new adodb.recordset Private Sub Form_Load() Set con = New ADODB.Connection ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\databasename.mdb;Persist Security Info=False" con.Open ConnectionString If rs.State = 1 Then rs.Close sql = "select * tablename" rs.Open sql, con, …  |
| | image1.visible= False image1.picture= Nothing |
The End.