[AccessD] inserting in DAO (another problem)

OK.  You have to wrap each string value in single quotes.

Now your code will look like this:
strSQL2 = "INSERT into Neww(a,b,c) Values ('" & strLine & "', '" & rs(1) & "', '" & rs(2) & "')"

Jim DeMarco

-----Original Message-----
From: Oleg_123 at xuppa.com [mailto:Oleg_123 at xuppa.com]
Sent: Thursday, November 13, 2003 11:14 AM
To: accessd at databaseadvisors.com
Subject: RE: [AccessD] inserting in DAO (another problem)


here's both occurunces; neithe works (?)

INSERT into Neww(a,b,c,d) Values (Aber,Doris , *, *)
INSERT into Neww(a,b,c) Values (Aber,Doris , *, *)

> Oleg,
>
> Add this line of code after it to see what your SQL string looks like.
> Debug.Print strSQL2
>
> Jim DeMarco
>
> -----Original Message-----
> From: Oleg_123 at xuppa.com [mailto:Oleg_123 at xuppa.com]
> Sent: Thursday, November 13, 2003 11:00 AM
> To: accessd at databaseadvisors.com
> Subject: RE: [AccessD] inserting in DAO (another problem)
>
>
> actually, not quite finished
> strline field is a name field stripped of middle initial with no space
> after coma, like "Bush,George". I need it to enter to an empty table.
> Doesn't matter whether in one column or in 2.
>
> however when I have 3 values (a,b,c) it tells me it not enough, when I
> put 4 (a,b,c,d) it tells me that number doesn't equal...
>
>
> strSQL2 = "INSERT into Neww(a,b,c) Values (" & strLine & ", " & rs(1) &
> ", " & rs(2) & ")"
> ---
>
> Private Sub Command0_Click()
> MsgBox ("hey")
> Dim strLine As String
> Dim strSQL1 As String
> Dim strSQL2 As String
> Dim db As DAO.Database
> Dim i As Integer
> Dim rs As DAO.Recordset
> Set db = CurrentDb
>
> strSQL1 = "Select * From New"
> Set rs = db.OpenRecordset(strSQL1)
>
>
>   Do Until rs.EOF
> strLine = rs("FullName")
> MsgBox strLine
> i = InStr(strLine, " ")
> If i <> 0 Then
>     strLine = Left(strLine, i)
> End If
>
> 'rs(0) = strLine
> strLine = FindAndReplace(CStr(strLine), Chr(39), Chr(39) + Chr(39))
> strSQL2 = "INSERT into Neww(a,b,c) Values (" & strLine & ", " & rs(1) &
> ", " & rs(2) & ")"
>
>  ' strSQL2 = "INSERT into Neww(a,b,c,d) Values (rs(0),rs(1),rs(2))"
> Debug.Print strSQL2
>
>     CurrentDb.Execute (strSQL2)
>     rs.MoveNext
>   Loop
>
>    MsgBox ("end")
> End Sub
>
>
> -----------------------------------------
> Get Breaking News from CNN, ABC, NBC, CBS Now.
> http://www.xuppa.com/news/?link=webmail
>
>
> _______________________________________________
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
>
>
> ***********************************************************************************
> "This electronic message is intended to be for the use only of the named
> recipient, and may contain information from Hudson Health Plan (HHP)
> that is confidential or privileged.  If you are not the intended
> recipient, you are hereby notified that any disclosure, copying,
> distribution or use of the contents of this message is strictly
> prohibited.  If you have received this message in error or are not the
> named recipient, please notify us immediately, either by contacting the
> sender at the electronic mail address noted above or calling HHP at
> (914) 631-1611. If you are not the intended recipient, please do not
> forward this email to anyone, and delete and destroy all copies of this
> message.  Thank You".
> ***********************************************************************************
>
> _______________________________________________
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com



-----------------------------------------
Get Breaking News from CNN, ABC, NBC, CBS Now.
http://www.xuppa.com/news/?link=webmail


_______________________________________________
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com


***********************************************************************************
"This electronic message is intended to be for the use only of the named recipient, and may contain information from Hudson Health Plan (HHP) that is confidential or privileged.  If you are not the intended recipient, you are hereby notified that any disclosure, copying, distribution or use of the contents of this message is strictly prohibited.  If you have received this message in error or are not the named recipient, please notify us immediately, either by contacting the sender at the electronic mail address noted above or calling HHP at (914) 631-1611. If you are not the intended recipient, please do not forward this email to anyone, and delete and destroy all copies of this message.  Thank You".
***********************************************************************************