DAO is pretty much out of date, and ActiveX Data Objects (ADO) is much
easier and can do much more. Add a reference to the ADO library and try:
Dim a As String
a = TextBox1.Value
Dim oConn As ADODB.Connection
Dim oRS As ADODB.Recordset
Dim strSQL As String
Set oConn = New ADODB.Connection
Set oRS = New ADODB.Recordset
oConn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0"
oConn.Open "C:\John\X_data.mdb”, "Admin", "xyz"
strSQL = "SELECT code FROM table1 WHERE Char ='" + CStr(a) + "'"
oRS.Open strSQL, oConn
oConn.Close
Set oConn = Nothing
Set oRS = Nothing
Note; I haven't tested this, you may have to replace the single-quotes in
the SQL string with double-quotes, or change the Jet OLEDB:ODBC Parsing
property (in the Properties collection of the Connection object) to True.
In addition to any replies you might receive or already received, you may
find more information or responses by posting future connectivity related
questions in the following discussion group:
Web browser: <>
Newsreader: <>
--
jrf
Autodesk Discussion Group Facilitator
Please do not email questions unless you wish to hire my services
On Sat, 19 Aug 2006 05:15:26 +0000, benny wrote:
> Hi all
>
> Here is my code to extract some data.(AutoCAD VBA code)
>
> Private Sub CommandButton1_Click()
> Dim rs As DAO.Recordset
> Dim cn As DAO.Database
>
> Dim a As String
> a = TextBox1.Value
>
> On Error Resume Next
> Set cn = DBEngine.Workspaces(0).OpenDatabase("C:\John\X_data.mdb”)
> Set rs = cn.OpenRecordset("SELECT code FROM table1 WHERE Char ='" +
CStr(a) + "'")
>
> If Err Then MsgBox Err.Description
> TextBox2.Value = rs.Fields(0).Value
>
> Set cn = Nothing
> Set rs = Nothing
>
> End Sub
>
> My above code is working fine, but if I lock the database (Locking
database with user name “Admin” and password ”xyz”, I don’t know how to
unlock through the code and read values.
>
> Please help me
>
> Thanks
> Benny
