Re: How to select rows from a mapped protected .MDB and insert into local table



sorry again

yes Bob you are right

I copy pasted the older commented string.

actually it is ";jet OLEDB:Database Password=" & Text1.Text


the error is in the select Statement.



Private Sub Commandbtn_Click()
Dim Cn As ADODB.Connection
Set Cn = New ADODB.Connection
Cn.CursorLocation = adUseClient
adocon.Open "Provider......;pwd=" & me.text1.text

strSQL = "insert into [Table1] (x,y,z) values ( SELECT [x1],[y1],[z1]
from "
strSQL = strSQL & "[Provider=Microsoft.Jet.OLEDB.4.0;Data Source="
strSQL = strSQL & Left(Drive1.Drive, 2) & "\MappedDB.mdb;et
OLEDB:Database Password=" & Text1.Text & "].[MappedTable])"

Cn.Execute strSQL

End Sub
may be i will go for the normal recordset method to retreive and add
and linking ... i didnt try it before ....
will it be faster than the recordset method ?... i will try.....

.



Relevant Pages

  • A VB6 program to generate CONSTants for a user defined gradient
    ... EndProperty ... It may be used for amy moral purpose. ... Dim mGreen1 As Long ... Private Sub ColorDisplay_MouseDown(Button As Integer, Shift As Integer, _ ...
    (comp.lang.basic.visual.misc)
  • Re: access 2003
    ... Dim ctl As Control ... Dim rs As Recordset ... This sets the query definitions for choosing data to create an invoice using ... Event on combo box: Private Sub ChooseCust_AfterUpdate ...
    (microsoft.public.access.conversion)
  • Re: Gradient Generator BMP Tool Improved
    ... EndProperty ... It may be used for amy moral purpose. ... Dim mGreen1 As Long ... Private Sub ColorDisplay_MouseDown(Button As Integer, Shift As Integer, _ ...
    (comp.lang.basic.visual.misc)
  • Multiple Calendar Control on one page
    ... Protected WithEvents Calendar1 As System.Web.UI.WebControls.Calendar ... Private Sub Page_Init(ByVal sender As System.Object, ... Dim mo As String ...
    (microsoft.public.inetserver.asp.components)
  • Calendar Control issue.
    ... Protected WithEvents Calendar1 As System.Web.UI.WebControls.Calendar ... Private Sub Page_Init(ByVal sender As System.Object, ... Dim mo As String ...
    (microsoft.public.dotnet.framework.aspnet)