[AccessD] inserting in DAO (another problem)

Oleg_123 at xuppa.com Oleg_123 at xuppa.com
Thu Nov 13 10:36:57 CST 2003


thanks Steve, already done

> 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
>
> _______________________________________________
> 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




More information about the AccessD mailing list