[AccessD] inserting in DAO (another problem)

You need single quotes around the text values:
 strSQL2 = "INSERT into Neww(a,b,c) Values ('" & strLine & "', '" &
rs(1) 
 & "', '" & rs(2) & "')"


Steve



-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of
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