Tryin To Insert Into A Access DB Table

Insert Access Table From VB
I have a form in Access and want to create tables in my Access database when I click a button, using coding in the click event. Can anyone tell me how to do this or point me to a web site that explains this? Access help does not tell you how to create tables using coding, only through wizards. I know SQL, but obviously just inserting the proper SQL statement is not possible.

Within a form, I want to create a table (within the code) inside the same .mdb file.

Thanks..

---

Access VBA - INSERT To Table
G'Day Guys,

Im stumped here trying to copy a string into an existing field of an Access
table (The code is written in VBA).

Heres what I have so far (maybe I'm doing it wrong):

VB Code:
Dim db As Object    Dim d As String: d = "testing"     Set db = CurrentDb()    Dim s As String    s = "insert into CD-Blank(File_Name) values (' " & d & " ')"     db.Execute s



Cheers,
Bruce.

---

How Can I Insert A New Record Into An Access Table From My VB App?
VB version 6.Access version:2000
I am developing a Web browser application.I want to update my Url&Date table with every user's URL request plus the current date.I 've tried it through the folowing code but I get a "User defined type not defined" error.Do you know why?

Private Sub updateDB()
Dim cn As ADODB.connection
Dim sInsert As String
Dim myDate As Date

sInsert = "INSERT INTO TABLE Url&Date cboAddress.text,myDate"
Set cn = New ADODB.connection
cn.ConnectionString = "I am now inserting a new record.."
cn.Open
cn.execute sInsert

cn.Close
Set cn = Nothing
End Sub

Note:cboAddress.text is the URL. I believe that I do not use it properly because it is on double quotes ("").Sould I store it first to a variable?

---

Insert In Table Access Without Null
Hi

How can do Insert in Access Table, without Null,

How can I to remove null before insert in Access Table

---

Insert A Table Into An Access DataBase
Hi...I need to know the way to insert a Table into an existent Access DataBase using VB6 Code.

I appreciatte ur help.

---

(vb6)Insert Data In The Access Table
Hon'ble gurus,
I use VB6 and Access2002 database and ADODB. I have 2 tables created in my .mdb file. Both the tables have a common field MyCode. I want that a particular data row(which is typed in a textbox) has to be deleted from table1 and should enter in table2. With regard to deletion I use like:
con.execute "delete * from table1 where MyCode= '" & Text1.text & "' "
But, how can I insert that particular data in table2 ? Please advise me. Thanks and regards.



pkb_pkb

---

How To Do Bulk Insert From Access Table Into Sql Server
Hi
I want to do a bulk insert from Access table into SQL Server table

Currently I am doing 1 record at time with the hlep of recordset .But it is taking too long .
Also I should be able to manange the insert srtring because it is not a direct table to table copy

Is it possible to do using Vb 6.0 code

Thanks in Advance

---

Insert A Record In A Ms Access Table With 3 Relationship
My name is Kervin!
I have made a data base in ms access. The db consist of 4 table, one of them has 3 relationship from the other table. Student, Faculty, Rules and Demerits. I can insert to the first 3 but when I try to insert a record in the 4th one an error 91 <object variable or With block not
Set> is making me crazy. When I try to Edit a record the same error is show. I can resolve the Edit error deleting first the record and once the record is on text box I can insert it edited. But I can insert on Demerits table. I'm using a ADO Jet 4.X to comunicate with ms access from VB.
The code is:
 With frmDemerit.AdoDemerit.recordset
     .addnew
          .field("SID") = txtSID.text
          .field("FID") = dbcFID.text I'm using a data combo
          .field("DCode") = dbcDCode.text " "
          .field("Date") = txtDate.text
     .update
If any body know another way to insert or know the cause of my error, and want to help me, please! please! is my software Eng. final project.
In the name of God HEEEEEELP me please!

 

---

Insert Distinct Records In A Table (Access VBA)
I need to insert "distinct" records in one table with a sql statement.

Following is the statement:

xSQL = "INSERT INTO HeaderFile ([Date], [Grp], [Reg], [ServLoc], [AcctNo], [InvNo], [Unit]) IN '\C:MyDB.mdb' SELECT DLFile.Date, DLFile.Grp, DLFile.Region, DLFile.ServLoc, DLFile.AcctNo, DLFile.InvNo, DLFile.UNIT FROM DLFile WHERE DLFile.Grp = """ & ProcGrp & """"

The DLFile contains the same information (except unit) on each line. (I didn't set up the database but I have to live with it.)

So what I would like to do is only insert the unique records baseed on Date, Grp, Reg, ServLoc, AcctNo, InvNo, and Unit.

I've seen some examples of selecting distinct records, writing them to a temp table and then writing them to the HeaderFile table from the temp table.

I'm hoping that I can do it right from the INSERT statement.

Thanks for the help.

---

Insert Records Into Access Table From A Form
Hi,

   I am having problem inserting records into a access table that I have created. I have a table called tblClient and a form called frmAdd and I have an Add button in the form, which has a click event procedure and I have written the code to insert into the table, but for some reason when I hit the add button the record does not insert into the table. I get no errors either. Below is the code that I have written. Any help would be greatly appreciated. Thanks

Private Sub cmdAdd_Click()
On Error GoTo Err_cmdAdd_Click


DoCmd.GoToRecord , , acNewRec
    
CurrentDb.Execute "INSERT INTO tblClient (Date Received, FullName) VALUES (" & Format(txtDateReceived.Value, "mm/dd/yyyy") & ", '" & txtFullName.Value & "')"



Exit_cmdAdd_Click:
    Exit Sub

Err_cmdAdd_Click:
    MsgBox Err.Description
    Resume Exit_cmdAdd_Click
    
End Sub

---

Access Function To Return Table And Insert Values
I've done this kind of thing in SQL server but cant figure it out in VB/Access

I want a function to return a table I can JOIN on with other tables.
I think this function creates the table but how do I insert the values ?

Code:Function func_DateRangeMonth(dtStartDate As Date, dtEndDate As Date) As Table
    Dim dtCurrentDate As Date
    
    If dtStartDate < dtEndDate Then
    dtCurrentDate = Month(dtStartDate) & "/01/" & Year(dtStartDate)
    dtEndDate = Month(dtEndDate) & "/01/" & Year(dtEndDate)
    func_DateRangeMonth.Columns.Append "MonthBegin", adDate
    While dtCurrentDate <= dtEndDate
    
        ' some code to insert into this table
        
        dtCurrentDate = DateAdd(mm, 1, dtCurrentDate)
    Wend

End Function

this is the SP im trying to recreate

Code:CREATE FUNCTION dbo.func_DateRangeMonths(@StartDate DateTime, @EndDate DateTime)
RETURNS @Results TABLE (MonthBeginning DateTime)
AS

BEGIN

    IF @StartDate >= @EndDate
    BEGIN
        RETURN
    END
    
    DECLARE @CurrentDate DateTime
    
    SET @CurrentDate = CONVERT(nVarChar, MONTH(@StartDate)) + '/01/' + CONVERT(nVarChar, YEAR(@StartDate))
    SET @EndDate = CONVERT(nVarChar, MONTH(@EndDate)) + '/01/' + CONVERT(nVarChar, YEAR(@EndDate))
    
    WHILE @CurrentDate <= @EndDate
    BEGIN
        INSERT INTO @Results (MonthBeginning) VALUES (@CurrentDate)
        SET @CurrentDate = DATEADD(mm, 1 , @CurrentDate)
    END

    RETURN
END



----------------------------------------------------------------------------
Dan Bayley
Affordable website design UK
Free Google & Yahoo sitemap generator

---

What Is The Syntax Of Create Table And Insert Statement For Access 2000 Db.
What is the syntax of create table and insert statement for access 2000 db.

I want to paste the create table and insert statement to access 2000 "sql view window".
Therefore i want the correct syntax and format for these statements.
The reason that i want do this is that I created an application that generates create
table and insert statements for access db and this way i want to test my application if it
generated the statement correctly.

---

Insert Access Data Into Word Form Table Cells
Hi everybody

I have a Word form template with a vba command button (“User Name”) placed in a table cell. The command button displays a vba form with a list of employee names taken from an Access table along with a “Cancel”, “Clear” and “Ok” button. A user selects a name which is then inserted in an adjacent table cell on the word form.

Just this above-mentioned procedure has taken me Weeks to put together. Most of the code and advice came from the VB City forum, so I have you guys to thank for everything.

So, back to my plea for help. The form template also contains word text fields that users must complete, for example, job title, unit and personnel number etc. However, this information is also available in the Access table. So I thought to myself, wouldn’t it be great if this data could somehow be inserted into the various table cells on the word form instead of using basic text fields.

Currently, I can only manage to call one column of data from the Access table and populate a dropdown list and insert one name into a table cell (see code below). I would love to be able to list all Access table details and for those details to be placed in various table cells on the form.

Any assistance would be greatly appreciated.

Kind regards

Arabella




Code:Private Sub EMSA_Staff_Clear_Click()
    ClearCell
End Sub

Code:Private Sub EMSA_Staff_Ok_Click()
Dim i As Integer
Dim s As String
Dim strSel2 As String
Dim strOther2 As String
'ActiveDocument.ListBox1.Clear
    s = ""
    s = ActiveDocument.Tables(1).Cell(2, 2).Range.Text
    s = Mid(s, 1, Len(s) - 2)
    If Len(s) > 0 Then
        s = s & ", "
    End If
    ClearCell
For i = 0 To Me.ListBox1.ListCount - 1
   If Me.ListBox1.Selected(i) = True Then
      strSel2 = Me.ListBox1.List(i) & vbNullString
      If strSel2 = "NON-EMSA Personnel" Then
         strOther2 = InputBox(prompt:="Please enter name.", Title:="Non-EMSA Personnel")
         If InStr(1, s, strOther2 & ", ", vbTextCompare) = 0 Then
            s = s & strOther2 & ", "
         End If
       Else
         If InStr(1, s, strSel2 & ", ", vbTextCompare) = 0 Then
            s = s & strSel2 & ", "
         End If
      End If
   End If
Next i
    If Len(s) > 0 Then
        s = Mid(s, 1, Len(s) - 2)
        ActiveDocument.Unprotect
        ActiveDocument.Tables(1).Cell(2, 2).Range.InsertAfter (s)
        ActiveDocument.Protect Type:=wdAllowOnlyFormFields, NoReset:=True
    Else
        ClearCell
    End If
      
 Unload Me
End Sub

Code:Private Sub Lead_Emsa_Person_Cancel_Click()
    Unload Me
End Sub

Code:Private Sub UserForm_Initialize()
On Error GoTo UserForm_Initialize_Err
    Dim cnn As New ADODB.Connection
    Dim rst As New ADODB.Recordset
    cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
             "Data Source=S:ITemsa staff details.mdb"
    rst.Open "SELECT DISTINCT [Name] FROM Staff ORDER BY [Name];", _
             cnn, adOpenStatic
    rst.MoveFirst
    With Me.ListBox1
        .Clear
        Do
            .AddItem rst![Name]
            '.AddItem rst![Title]
        rst.MoveNext
        Loop Until rst.EOF
    End With
UserForm_Initialize_Exit:
    On Error Resume Next
    rst.Close
    cnn.Close
    Set rst = Nothing
    Set cnn = Nothing
    Exit Sub
UserForm_Initialize_Err:
    MsgBox Err.Number & vbCrLf & Err.Description, vbCritical, "Error!"
    Resume UserForm_Initialize_Exit
End Sub

Code:Private Function ClearCell()
    ActiveDocument.Unprotect
    ActiveDocument.Tables(1).Cell(2, 2).Range.Delete
    ActiveDocument.Protect Type:=wdAllowOnlyFormFields, NoReset:=True
End Function

---

How To Insert Temporary Data In Access(table) Using Data Grid
How to insert data into a table using a data grid.
A little background,i am using SS TAB in my forms i need to hold data temporarly im my data grid
and then finaly at click it should be inserted in the table.The SS TAB is linked to ADOC,which is inturn
linked to the table in access.

---

How To Insert Temporary Data In Access(table) Using Data Grid
How to insert data into a table using a data grid.
A little background,i am using SS TAB in my forms i need to hold data temporarly im my data grid
and then finaly at click it should be inserted in the table.The SS TAB is linked to ADOC,which is inturn
linked to table.



Edited by - manav74 on 10/29/2003 1:01:07 AM

---

Word 97: How To Insert A Table Into An Existing Table Cell
Does anyone know how I can insert a New Table into a cell of another table?

In Word 2000, I can issue the following code when I am within a cell of a table and the table gets inserted correctly:

Dim rRange As Range, myTable As Table
With Selection
    Set rRange = .Range
    Set myTable = rRange.Tables.Add(Range:=.Range, NumRows:=2, NumColumns:=4)
End With

However, in Word97, I am not able to do this. I get an error telling me that a table already exists. Has anyone had any success with being able to insert a new table into a cell of an existing table without doing a lot of cell/row inserts and cell merges?

---

How To Insert Table Into A Cell Of Another Table Using Word Object
hi friends,

i have inserted a table into word do using word object through VB

wddoc.tables.add selection.range, 2, 4

now i wanto to insert a table into the cell of the table created.

can u help me how to do that

i have tried like this

wddoc.tables(1).cell(1,1).range.tables.add selection.range,2,4

but i am getting an error saying that table already exists in that location,

PLEASE HELP ME OUT!!!!!

thanx

---

How To Insert Table Into A Table Cell Of Word
hi friends,


i am creating a word doc from VB and then i want to insert tables into it. i am inserting table in the following manner

wdapp.ActiveDocument.Tables.Add selection.range, 4, 1
wdapp.ActiveDocument.Tables.Add selection.range, 2, 2

but it is able to create the first table but not the second table. it is giving a error message saying that table already present in the location.

can u tell me how to insert 2 or more tables into the word doc through coding

thanx,

---

Bulk Insert: Copy Table To Table?
I have a client that copies all data from one table to another every
week.
We use DTS at the moment, but someone said that it could be
done with T-SQL Bulk insert.
Did some reading, but I can't figure out how to use a table as input...

Info: SQL server 2000. Table size is 3 GB
It is slow, maybe Bulk is faster.
The log file growes to 6 gb.
I tried exporting to file and import using BCP, but found no performance
increase.

I searched the forum but didn't find anything on table to table copy.

/Jerry

---

Create New Table And Insert Values In It From Another Table
Hi all

What I wanna do is create new table and insert values in it from another table based on query, but I always get error

Error = 'Runtime error 3704: - Operation not allowed when the object is closed'

here is code


Code:


Private Sub mnuZadnji_kontakt_s_klijentom_Click()

Dim MyConn As ADODB.Connection
Dim MyRecSet As ADODB.Recordset
Dim MyRecSet1 As ADODB.Recordset
Dim ime As String
Dim prezime As String
Dim datum As String
Dim gsm As String
Dim telefon As String

Set MyConn = New ADODB.Connection
MyConn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source='" & rut & "';"
MyConn.Open
MyConn.Execute "CREATE TABLE zadnji_kontakt_klijent (Datum TEXT (50), Ime TEXT (50),Prezime TEXT (50), GSM TEXT (50), Telefon TEXT (50))"

Set MyRecSet1 = MyConn.Execute("SELECT * FROM klijenti order by prezime desc")

Do Until MyRecSet1.EOF

ime = "" & MyRecSet1.Fields.Item("ime").Value
prezime = "" & MyRecSet1.Fields.Item("prezime").Value
telefon = "" & MyRecSet1.Fields.Item("telefon").Value
gsm = "" & MyRecSet1.Fields.Item("gsm").Value
datum = "" & MyRecSet1.Fields.Item("dat_uklj").Value

Set MyRecSet1 = MyConn.Execute("INSERT INTO zadnji_kontakt_klijent (Datum, Ime, Prezime, GSM, telefon) Values ('" & datum & "', '" & ime & "', '" & prezime & "', '" & gsm & "', '" & telefon & "')")


MyRecSet1.MoveNext

Loop

MyConn.Close
End Sub

---

How To Insert Table Into A Table Cell Of Word
hi friends

i want to add a table inside a table cell, i am using the following code to achieve this, but i am getting and error saying that the table is already located in the location. i think there is some problem with the range.

wdapp.ActiveDocument.Tables(2).Cell(2, 1).Range.Tables.Add wdapp.ActiveDocument.Tables(2).Cell(2, 1).Range, 2, 1

thanx,

---

How To Insert Table Into A Table Cell Of Word
hi friends

i want to add a table inside a table cell, i am using the following code to achieve this, but i am getting and error saying that the table is already located in the location. i think there is some problem with the range.

set drange=wdapp.ActiveDocument.Tables(2).Cell(2, 1).Range
wdapp.ActiveDocument.Tables(2).Cell(2, 1).Range.Tables.Add drange, 2, 1

i am using word 8.0 dll i.e word 97
thanx,



------------------------------------------------
Good Friend...
------------------------------------------------

---

Insert Data To A Table From Another Table Which Is In Another Database
Can anyone help me

I want to insert data to a table from another table which is in another database through VB 6.0

bala

---

Still Tryin To Get Some Help
im still tryin to make a remote contoler so it can show my told income of a site and show total hits and total sign upsi need to learn how to grab data off a site well a few sits cuz itis like 3 sties

---

Am Tryin My Best... But
What am i doing wrong just wanna play a wav when form starts .any ideas. please.thanks

paul


Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long



Private Sub Form_Load()
Dim result As Integer
result=sndplaysound (C:My Documentsvbbookschimes1)
End Sub

---

Help With A Little Game Im Tryin To Make
ok, here's the problem, i can't get the betting part working, everytime i bet and win it goes to 1000, everytime i bet and lose it goes to -1000

another thing is i can't buy things, i click on the combo box and then on the item i want and it doesn't do anything

help would be greatly greatly appreciated, this is a final project for visual basic and im soo stuck...


here's the main form...

Public intspeed1 As Integer
Public intspeed2 As Integer

Private Sub Cmdsave_Click()
Dim intnewfile As Integer
intnewfile = FreeFile
Open "C:My DocumentsMy VB Documentsstuff" For Output As #intnewfile
Write #intnewfile, intmoney, intwincounter, intlosscounter, lngaccount, blnspoiler, blncfhood, blnhoodscoops, blntires, blnshocks, blncai, blnv2cai, blnsri, blndcheaders, blncbexhaust, blnstage1, blnstage2, blnstage3, blnstage4, blnstage5, intspeed1, intspeed2, blndyno, blnnos, blnracingecu, blnsuper, blnturbo
Close #intnewfile
unloadme
endsub
End Sub

Private Sub Command1_Click()
Frmstore.Show
End Sub

Private Sub form_unload(cancel As Integer)
MMCracesound.Command = "Close"
End Sub

Private Sub cmdgo_Click()
Tmrgo.Enabled = True
End Sub

Private Sub Form_Load()
Dim intyesno As Integer
intnewfile = FreeFile

intyesno = MsgBox("Continue Saved Game?", vbYesNo)

If intyesno = 6 Then
Open "C:My DocumentsMy VB Documentsstuff" For Input As #intnewfile
Input #intnewfile, intmoney, intwincounter, intlosscounter, lngaccount, blnspoiler, blncfhood, blnhoodscoops, blntires, blnshocks, blncai, blnv2cai, blnsri, blndcheaders, blncbexhaust, blnstage1, blnstage2, blnstage3, blnstage4, blnstage5, intspeed1, intspeed2, blndyno, blnnos, blnracingecu, blnsuper, blnturbo
Close #intnewfile

Randomize

MMCracesound.DeviceType = "Wave Audio"
MMCracesound.FileName = ("C:My DocumentsMy VB Documentscargoby.wav")
MMCracesound.Command = "Open"

lngplayeraccount = 500
Lblmoney.Caption = lngplayeraccount

intspeed1 = 20
intspeed2 = 20

'increases opponent speed when u win more
If intwincounter > 5 < 10 Then
intspeed2 = intspeed2 + 5
Else
intspeed2 = 20
End If
If intwincounter > 10 < 15 Then
intspeed2 = intspeed2 + 10
Else
intspeed2 = 25
End If
If intwincounter > 15 < 20 Then
intspeed2 = intspeed2 + 15
Else
intspeed2 = 30
End If
If intwincounter > 25 Then
intspeed2 = intspeed2 + 20
Else
intspeed = 35
End If
If intwincounter > 25 < 30 Then
intspeed2 = intspeed2 + 5
Else
intspeed = 40
End If
End If
End Sub

Private Sub Tmrcar1_Timer()
piccar1.Move piccar1.Left + Int(41 * Rnd + intspeed1)

If piccar1.Left >= (Frmracing.Width - piccar1.Width) Then
Call endrace
MsgBox "Car 1 Wins!"
intwincounter = intwincounter + 1
Lblwins.Caption = intwincounter
lngplayeraccount = lngplayeraccount + 1000
Lblmoney.Caption = lngplayeraccount
End If
End Sub

Private Sub Tmrcar2_Timer()
piccar2.Move piccar2.Left + Int(41 * Rnd + intspeed2)

If piccar2.Left >= (Frmracing.Width - piccar2.Width) Then
Call endrace
MsgBox "Car 2 Wins!"
intlosscounter = intlosscounter + 1
Lbllosses.Caption = intlosscounter
lngplayeraccount = lngplayeraccount - 1000
Lblmoney.Caption = lngplayeraccount

End If
End Sub

Private Sub Tmrgo_Timer()
Static blnred As Boolean
Static blnyellow As Boolean
Static blngreen As Boolean
If Txtbet.Text = "0" Then
'MsgBox "Place a bet on the race"
'Tmrgo.Enabled = False
'blnred = False
End If
If Txtbet.Text > Lblmoney.Caption Then
'MsgBox "You don't have enough money!"
'Tmrgo.Enabled = False
'blnred = False
End If
If Not blnred Then
Call drawred(blnred)
ElseIf Not blnyellow Then
Call drawyellow(blnyellow)
ElseIf Not blngreen Then
Call drawgreen(blngreen)
Else
Tmrgo.Enabled = False
Picsignallight.Cls
blnred = False
blnyellow = False
blngreen = False
piccar1.Left = 250
piccar2.Left = 350
piccar1.Picture = LoadPicture("C:My DocumentsMy VB Documentsgreyhondacivic.bmp")
piccar2.Picture = LoadPicture("C:My DocumentsMy VB Documents
edhondacivic.bmp")
MMCracesound.Command = "Play"
MMCracesound.Command = "Prev"
Tmrsound.Enabled = True
Tmrcar1.Enabled = True
Tmrcar2.Enabled = True
End If
End Sub

Sub drawred(ByRef blnred As Boolean)
Picsignallight.FillColor = vbRed
Picsignallight.FillStyle = vbDiagonalCross
Picsignallight.Circle (200, 200), 200, vbRed
blnred = True
End Sub


Sub drawyellow(ByRef blnyellow As Boolean)
Picsignallight.FillColor = vbYellow
Picsignallight.FillStyle = vbDiagonalCross
Picsignallight.Circle (200, 700), 200, vbYellow
blnyellow = True
End Sub


Sub drawgreen(ByRef blngreen As Boolean)
Picsignallight.FillColor = vbGreen
Picsignallight.FillStyle = vbDiagonalCross
Picsignallight.Circle (200, 1200), 200, vbGreen
blngreen = True
End Sub



Sub endrace()
Tmrcar2.Enabled = False
Tmrcar1.Enabled = False
Tmrsound.Enabled = False
MMCracesound.Command = "Stop"
cmdgo.Visible = True
piccar2.Picture = LoadPicture
piccar1.Picture = LoadPicture
End Sub

Private Sub Tmrsound_Timer()
MMCracesound.Command = "Play"
MMCracesound.Command = "Prev"
End Sub

---

Tryin To Setup Remote DB
Im setting up a remote DB and this is my info that works how do i change it where i can do say Z:datasample.mdb or \serverdatasample.mdb any help would be nice.

.ConnectionString = "user id=admin;password=;data source=" & "'" & App.Path + "sample.mdb" & "'"

---

Been Tryin To Find Help With This...WinInet API
Well, if anybody knows about it.. I need HELP (or source )

Anyway, I am looking to make an auto-update for my application, but I need to download it via WinInet API (I hate using OCXs, unless they are small).

I need to get the file from a site, check the total amount downloaded (can put that in a timer i'd guess), give percentage complete and that's about it.

If anybody has any info about it.. Toss me a message

---

Insert Values Into Table From Same Table
this is my sql statement. (doesn't work)

sql = "INSERT INTO tblIncome VALUES(Date) SELECT DateAdd(""ww"",2,MAX(Date)) FROM tblIncome"

I want to insert a new record with the 'date' field 2 weeks after the last 'date' field in the table.

---

Insert Values Into Table From Same Table
this is my sql statement. (doesn't work)

sql = "INSERT INTO tblIncome VALUES(Date) SELECT DateAdd(""ww"",2,MAX(Date)) FROM tblIncome"

I want to insert a new record with the 'date' field 2 weeks after the last 'date' field in the table.

---

How To Insert A Table Records Into Other Table
As per title i want to insert a table's records into other table, or u can say copy records from one table to other tabel, what shoul be sql query.?

---

How To Insert Table Into A Table Cell
hi friends

i want to add a table inside a table cell, i am using the following code to achieve this, but i am getting and error saying that the table is already located in the location. i think there is some problem with the range.

wdapp.ActiveDocument.Tables(2).Cell(2, 1).Range.Tables.Add wdapp.ActiveDocument.Tables(2).Cell(2, 1).Range, 2, 1

thanx,

---

Hi, I Am Tryin To Copy Columns Of Different Lengths
from one sheet to another in excel using marcos.After copying I would like to divide the entire each column with a number except the first row which is jus a string.Any help or suggestions is greatly appreciated thank you,

-Sri

for eg:

Sheet 1 Sheet 2

xyz lmn pqr xyz lmn ...
4 8 9 4/6 8/3
14 18 19 14/6 18/3
114 118 119 14/6 118/3
44 88 99 44/6 88/3
414 818 414/6 818/3
4114 4114/6

---

Database ??, Tryin To Stump Cafeenman...lol
Ok, this ones for cafeenman and all the others that helped me out with my huge database problems.

I've been doing some thinking(surprise surprise the smoke detector didn't go off.)

Anyways, I was wondering if I can format the program so that as it grabs each file, it checks its extension and drops it into a corresponding table.

Example, it opens up this directory

m:downloadswinzip.zip

I want it to see the .zip and drop this file and filepath into
tblZipped

then if the next file is
m:downloadsicq.exe

I want it to see the .exe and drop this file and filepath into
tblExecutable

So do you think this would work???
and what would be the best way to rename files/paths so that it was easier to understand...

---

How INSERT INTO At The End Of The Table?
Hello,

I am starting on this.
I want to insert some records from txt file into a access.
The problem is that the INSERT INTO is not at the end of the table.
Sample, I have these lines in txt file:
1 xxxxx
2 xxxxx
3 xxxxx
4 xxxxx
.
.

And after the program ran I have:
1 xxxx
4 xxxx
3 xxxx
.
.

How can I do the INSERT INTO at the end of the table?
Here is my code:


Do While Not EOF(FF)
Line Input #FF, line
MsgBox (line)
strarray(0) = Mid$(line, 1, 4)
strarray(1) = Mid$(line, 5, 2)
strarray(2) = Mid$(line, 7, 2)
strarray(3) = Mid$(line, 10, 2)
strarray(4) = Mid$(line, 12, 6) 'location
strarray(5) = Mid$(line, 18, 2) 'trip
strarray(6) = Mid$(line, 20, 3)
strarray(7) = Mid$(line, 23, 1)
strarray(8) = Mid$(line, 24, 3)
strarray(9) = Mid$(line, 27, 3)
strarray(10) = Mid$(line, 30, 4)
strarray(11) = Mid$(line, 34, 6)
strarray(12) = Mid$(line, 40, 6)
strarray(13) = Mid$(line, 47, 1)
strarray(14) = Mid$(line, 48, 1)
strarray(15) = Mid$(line, 49, 1)

MsgBox (strarray(0) & " " + strarray(4) & " " & strarray(5))

statement = "INSERT INTO agcat98DB (year1, month1,day1, area,location, trip, anglers, vestype,vessel, " & _
" species, number1, lbs, collection ," & _
" tripflag, dupflag, locflag ) " & _
" VALUES (" & " ' " & strarray(0) & "' " & ",'" & strarray(1) & "'," & "'" & strarray(2) & "'," & _
"'" & strarray(3) & "'," & "'" & strarray(4) & "'," & "'" & strarray(5) & "'," & _
" ' " & strarray(6) & "'," & "'" & strarray(7) & "'," & "'" & strarray(8) & "'," & _
" ' " & strarray(9) & "'," & "'" & strarray(10) & "'," & "'" & strarray(11) & "'," & " '" & strarray(12) & "'," & _
"'" & strarray(13) & "'," & "'" & strarray(14) & "'," & " ' " & strarray(15) & "'" & ")"

MyConn.Execute (statement)

Loop
' Debug.Print strData
Close #FF
MyConn.Close



Thanks a lot,

---

Insert Into Table
Hi
This code is true
str = "select bestankar,bedehy from listmoshtary where [idnom]='" & Text2.Text & "' "
Datamoshtary.RecordSource = str
Datamoshtary.Refresh
Datamoshtary.UpdateControls


but this code is false , why ?
str = "insert into listmoshtary (bestankar) values('901') "
Datamoshtary.RecordSource = str
Datamoshtary.Refresh
Datamoshtary.UpdateControls

Please help me,
Mansoor Abdi

---

Insert Into MS SQL TABLE
Hi Guys,

I have never used Ms SQL database,so now I have a project that need to be done on this database,so I have been trying to insert files into my files table,it keep on giving error that says "[SQL Server]String or binary data would be trancated",so I have the copy of Design Table with all the fields so that any one kind may be able to assist me,

TABLE: files
Field Name Type Size Key
1 cid Integer 0
2 file_no String 254
3 prefix_id Integer 0
4 file_no_hash String 250
5 frp_id Integer 0
6 ownfrp Boolean 0
7 retention_date DateTime 0
8 acl_id Integer 0
9 ownacl Boolean 0
10 security_id Integer 0
11 cutoff Boolean 0
12 comments String 250
13 creation_date DateTime 0
14 cross_ref String 250
15 subject String 250
16 sujet String 250
17 desc_eng String 500
18 desc_fre String 500
19 parentfile_id Integer 0
20 primary_no Float 0
21 filetype_id Integer 0
22 start_date DateTime 0
23 status String 1
24 essential String 1
25 pib_no String 30
26 ati_no String 30
27 close_date DateTime 0
28 authority_no String 28
29 holdflag String 1
30 rowver Integer 0
31 rowlockstamp Integer 0
32 rowid Blob 0
33 isvital Boolean 0
34 vital_period Smallint 0
35 vital_review_date DateTime 0

Only field cid is an automatic value,the rest I need to get values for them.
So I will appriciate if someone can write me an Insert Statement that I can use on my vb Program,Please!!!

---

Insert Into Table
hi,
I can insert a new user using the following commandtext.


Code:
MySQL.CommandText = "insert into UserList (UserName, Password, Status, Time) values ('aterina', 'aterina', 'U', getdate())"

However, I need to do the same thing using strings such as


Code:
str1="aterina"
str2="aterina"
str3="U"
MySQL.CommandText = "insert into UserList (UserName, Password, Status, Time) values (str1, str2, str3, getdate())"

This does not work because of the ' and " difference. How can I solve this problem?

ps: I need to use this because I will send these strings as input parameters to the insert function.

---

Insert Into Same Table
I am trying to move information from one field to another in the same table of an access database. The Select is working correctly as the query in datasheet view shows the correct number of records, but the Insert portion is not working (Even though it tells me it is going to append 263 rows).


Code:
INSERT INTO activity ( ProjNumber )
SELECT Activity.StudyNotes
FROM Activity
WHERE Len([studynotes])=7;
Is this possible to do in a query or do I need to do this programatically and loop through a recordset to get this to work?

Thanks in advance.

---

Insert Into Table?
See attached.

Basic scenario:- I have a text file with a long line a characters ,called test.txt. I need to chop the text up into meaningful fields, then insert into my table.

Why wont this code insert data from my text file into my table?. It looks like it works as the ASP doesnt generate any errors, however my table is left blank.
??

---

Can't Insert Into The Table.why?
hi all,

i'am stuck now.i am trying to insert the data into one of the table in my database,but then the err "ODBC Driver does not support the requested properties" occured.i have try to insert a simple data into it.but the err stil occured.what can i do to solve this kind of problem?anyone have an idea on this?please help.thank you in advance.

---

Insert New Row Using Ole/vb At The End Of A Table
Hi all

I have tried to find more information on how to add or insert a row at the end of a table in word using ole from vb.

No luck

I have this table:

Set oTable = objWD.ActiveDocument.Tables.Add(Range:=MyRange, _
        Numrows:=recCountDoub, numcolumns:=7)

and have filled all cells, but I need a way to dynamically add a number of extra rows at the end when needed by the program.

I also would like to know if anyone knows how to find the location at the very end of the document and how to select it?

Thankyou to all who help

Nick Wood

---

Insert Into Table
Hello -

I have a functioning recordset that I loop through, and then need to pump the data into an existing static table called tmp_Romis. For some reason I am getting this message: "Syntax error (missing operator) in query expression stat.sd107 Insert Into tbl_Romis...none of the data goes into the table...

Here is my code and any observations are appreciated:

'Next pull back the ROMIS data into the rsRomis recordset
                        sSql = "Select * FROM stat "
                        sSql = sSql & "INNER JOIN tran ON stat.K002 = tran.k002 "
                        sSql = sSql & "WHERE stat.sd107 = 'C' OR stat.sd107 = 'D' ORDER by stat.sd107"
                        'sSql = objADO.ExecuteSQL(sSql, True)
                        Set rsRomis = objADO.RSWithSQL(sSql, True)
                           
                            'Put some of the data into the static table called tmp_Romis
                                If rsRomis.RecordCount > 0 Then
                                  rsRomis.MoveFirst
                                Do Until rsRomis.EOF
                                    'Add new records into tmp_Romis
                                    sSql = sSql & "INSERT INTO tbl_Romis (sd107, e052, a001, k002, a002r, d046d, c042)"
                                    sSql = objADO.ExecuteSQL(sSql, False)
                                    rsRomis.MoveNext
                            Loop
                        End If

Thanks if you can help!!!

Cyndi Brown

---

Insert Table Or CSV
Hi all,

I want insert a excel table or csv files into a program for edit and checking, how can I do, any sample code?

Thanks

Kel

---

(VB 6.0) How To Insert Into Table ?
Sir,
I use visual basic 6.0 and MSAccess and ADODB. With MSAccess I've created a table named 'MyOwnData' with three fields: Billno, Description, Amount. On the form I have one labelarray named Label1 having 6 labels and one textarray named Text1 having 6 textboxes. I want that with the click of a button,the captions of all the 6 labels and the value of all the 6 textboxes should be inserted into MyOwnData table in Description and Amount fields respectively. In the Billno field only one number should be repeated 6 times from Text2.

For this I wrote the code like this but failed. Please advise how to get the captions of all 6 labels and insert them into the table. Thanks.

Private Sub Command1_Click()

Dim i as integer

for i = 0 to Text1.Count - 1
Con.Execute "insert into MyOwnData values('" & Text2 & "','" & Label2(i) & "','" & Text1(i) & "')"
Next


pkb_pkb

---

Insert A Word Table
first of all: sorry about my english ... (i'm spanish girl)
now:I am handling a project who have to insert in a word document a table in specific line of these document... but the insertering does not have to delete the previuos lines...ether the following lines...

i used these code...

Set myRange =wrdApp.ActiveDocument.Range(1,1)
Set myTable =wrdApp.ActiveDocument.Tables.Add(myRange, 1, 3)
myTable.Cell(1, 1).Range.InsertAfter "Servicio"
...

but i prefer to use a bookmark...
can u help me?, please...

---

Insert Values From Vb To Table
How can I create or insert values that I have in VB to Access Table?
Now I have value: Test = 2 in code, but how can I Store it to my table for later use?

---

Insert A Table In Word?
Does anyone know the code to insert a tablein word i have the code for starting a new word app and new doc i just need the actual table code and the code for it's dimension properties?

---

Insert Variable To The Table
I need help here with my code i am trying to create a table in access
also let the code it self insert variable to the table (variable are taken fom txt file)

this is my code


Code:
Private Sub Command1_Click()
Dim rstAC As ADODB.Recordset
Dim Test As String


Set rstAC = New ADODB.Recordset
'Shows how to create an Access 2000 database and append tables, fields, indexes using ADOX. Don't forget
'a reference to ADOX (Microsoft ADO Ext. 2.x for DDL and Security)
Dim ADOXcatalog As New ADOX.Catalog
Dim ADOXtable As New Table
Dim ADOXindex As New ADOX.Index

On Error GoTo ErrHandler
ADOXcatalog.Create "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & "c:manal.mdb"

On Error Resume Next

ADOXcatalog.ActiveConnection = _
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" _
& "c:manal.mdb"

'name table, append fields to table
ADOXtable.Name = "HGMSystem"


ADOXtable.Columns.Append "CO", adInteger
ADOXtable.Columns.Append "O2", adInteger
ADOXtable.Columns.Append "H2S", adInteger
ADOXtable.Columns.Append "NO2", adInteger
ADOXtable.Columns.Append "SO2", adInteger
ADOXtable.Columns.Append "NH3", adInteger

'append tables to database
ADOXcatalog.Tables.Append ADOXtable


'internal index on two fields
ADOXindex.Name = "TwoColumnsIndex" 'name of index

ADOXindex.Columns.Append "CO"
ADOXindex.Columns.Append "O2"
ADOXindex.Columns.Append "NO2"
ADOXindex.Columns.Append "H2S"
ADOXindex.Columns.Append "SO2"
ADOXindex.Columns.Append "NH3"


ADOXtable.Indexes.Append ADOXindex
ErrHandler:
If Err.Number = -2147217897 Then
MsgBox "Database already exists"
ElseIf Err.Number <> 0 Then
MsgBox "Err " & Err.Description & "; operation not complete"
End If


Set ADOXtable = Nothing

Test = "2"
''rstAC.Open "HGMSystem", ActiveConnection, adOpenKeyset, adLockBatchOptimistic
rstAC.Open "tblTest", cnnAC, adOpenDynamic, adLockOptimistic
rstAC.AddNew
rstAC.Fields("CO").Value = Test
rstAC.Fields(1).Value = Test
rstAC.Update
rstAC.Close

Set rstAC = Nothing

End Sub

thanks

---