Serialization Gremlin - Visual Basic Discussion Boards

Suresh Prasad3-Dec-04 8:41

3-Dec-04 8:41

I am importing records from a ODBC Database into Access. The import works fine, except I get duplicate entries in my Access Database. I need to run this process once a week. Can anyone tell me how I can eliminate importing the duplicate entries to my Access. Thanks.

Private Sub ImportToAccess()

Dim Con1 As New ADODB.Connection
Dim Con2 As New ADODB.Connection
Dim mySQL1 As String
Dim mySQL2 As String
Dim myDSN As String
Dim mySET As String
Dim tmpTable As String

'Connection parameters for Source Database
myDSN = "DSN=Springbrook1;UID=suresh;PWD=******;"
mySET = "set schema 'pub'"
mySQL2 = "select * from customer"

'Open Source Database
Con2.Open myDSN
Con2.Execute (mySET)

'Open Destination Database
Con1.Open _
"Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=C:\Temp\VB Sample Codes\mcwd\Connect Program\test1.mdb;" & _
"Jet OLEDB:Engine Type=5;"

'WORKS BUT CREATES DUPLICATE RECORDS
mySQL1 = "INSERT INTO [C:\Temp\VB Sample Codes\mcwd\Connect Program\test1.mdb].[tblCustomer] SELECT (Cust_No, First_Name) FROM [odbc;DSN=Springbrook1;UID=suresh;PWD=******;].[Customer]"

Con1.Execute mySQL1

Con1.Close
Con2.Close
Set Con1 = Nothing
Set Con2 = Nothing

End Sub

Re: Can Anyone Help me with this one?

Jim Matthews3-Dec-04 9:00

Jim Matthews

3-Dec-04 9:00

if you're having problems importing duplicate records then the problem is with your A.) Data or B.) database design.

you might be better off finding help in the ADO/SQL forum, or if you'd like you can post what your tables look like and i can hve a quick look for you.

-jim

Re: Can Anyone Help me with this one?

Suresh Prasad3-Dec-04 10:28

Suresh Prasad

3-Dec-04 10:28

Jim:

It is a simple Table with 4 fields in it. An auto ID Field, Cust No Field, First Name Field and a Entry Time Field.

tblCustomer
ID
Cust_No
First_Name
Entry_Time

Each time the code is run, a new set of data is added to my Table. What I am trying to do is just to be able to update my table. Does this clarify the question?

Thanks

Re: Can Anyone Help me with this one?

Jim Matthews3-Dec-04 10:51

Jim Matthews

3-Dec-04 10:51

what is the primary key of the table? does the table you're pulling from have a primary key as well, and is the structure the same?

-jim

Re: Can Anyone Help me with this one?

Suresh Prasad3-Dec-04 10:56

Suresh Prasad

3-Dec-04 10:56

The primary key in both tables is Cust_No. The structure is the same. However, the infomation inthe primary table may have the same information in Primary Field, but the rest of the data may cahnge. So while importing, I need to make sure it imports the modified or new data in the secondary table. Does this helps with question?

Re: Can Anyone Help me with this one?

Dave Kreskowiak3-Dec-04 12:34

Dave Kreskowiak

3-Dec-04 12:34

In that case, you're going to need alot more code than this. You have to first check if the Cust_No exists in the table your copying this data to. If so, then you have to update that record with the new data. If not, you have to INSERT the new data.

RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome

Re: Can Anyone Help me with this one?

Suresh Prasad3-Dec-04 12:38

Suresh Prasad

3-Dec-04 12:38

THanks Dave:

I will try the statements. I assume the SELECET, UPDATE AND INSERT Statements will be used?

Serialization Gremlin

Tom John3-Dec-04 5:48

Tom John

3-Dec-04 5:48

Hey Guys

Try this:

<Serializable()> Public Class TestClass

    Public A As Integer = 100
    Public ASpecified As Boolean

End Class

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Dim ser As New System.Xml.Serialization.XmlSerializer(GetType(TestClass))
        Dim ms As New IO.MemoryStream

        ser.Serialize(ms, New TestClass)
        MsgBox(System.Text.ASCIIEncoding.UTF8.GetString(ms.ToArray))

End Sub

Then try changing ASpecified to Integer.

There seems be a problem with serializable methods/fields that end with the word Specified, can anyone else confirm that I'm not going round the bend... it's been an afternoon of pulling what little hair I have out tracking it down!

Cheers

Tom

Trapping Backspace

Brian Van Beek3-Dec-04 5:16

Brian Van Beek

3-Dec-04 5:16

I was wondering how to trap the backspace key with the keyPress event. Anyhelp would be much appreciated

Brian Van Beek

Re: Trapping Backspace

Jim Matthews3-Dec-04 5:47

Jim Matthews

3-Dec-04 5:47

i assume you're talking about the keypress of a textbox, so in your keypress event handler...

if (e.keycode = keys.back) then

'keys.back indicates the backspace key
'perform something here...

end if

hope this helps.

-jim

Creating Controls at Run Time

marclenoir20053-Dec-04 5:03

marclenoir2005

3-Dec-04 5:03

i'm working on a program right now, and i need show some informations on a form, but fact that information could be more than i thought, i need to create some labels at run time and place them on the form.

so, my Q is : how to create those labels at run time please?

regarding to you guys, sincere love.

marc

Re: Creating Controls at Run Time

Jim Matthews3-Dec-04 5:41

Jim Matthews

3-Dec-04 5:41

creating them is pretty easy...

dim c as new windows.forms.control
dim b as new windows.forms.button
dim l as new windows.forms.label

the problem you're going to have is setting the location appropriately since the placement will have to be dynamic.

you can set the location for the controls by using:
c.location = new drawing.point(x,y)
etc.

hope this helps.

-jim

Error occurs when Creating Controls

marclenoir20057-Dec-04 4:08

marclenoir2005

7-Dec-04 4:08

Hello Jim,

hope u're fine. Hum... i'm trying ur codes and an error occurs

at the first line.

ERROR is : "COMPILE ERROR
User-defined type not defined."

i forgot to mention that i was using vb6, so i don't if it's the real reason

of that occured error. i dont know what do u think about that?

let me know about that.

sincerely yours

marc

Re: Error occurs when Creating Controls

Jim Matthews7-Dec-04 4:34

Jim Matthews

7-Dec-04 4:34

yeah, this code was for vb.net.

i'm not sure if you can create controls dynamically at run-time in vb6. frankly i haven't worked with vb classic that much.

perhaps someone more experienced like dave can help you out.

sorry.

-jim

Re: Error occurs when Creating Controls

marclenoir20057-Dec-04 4:49

marclenoir2005

7-Dec-04 4:49

Thank u Jim for ur help anyway.

i appreciate effort u've done for me.

marc

Re: Creating Controls at Run Time

Dave Kreskowiak3-Dec-04 5:55

Dave Kreskowiak

3-Dec-04 5:55

In addition to what Jim said, you're also going to have to add the newly created control to the Form's Controls collection too.

RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome

Child Records Don't Show In Datagrid

NorthernExposure3-Dec-04 4:55

NorthernExposure

3-Dec-04 4:55

I have a typed dataset with 3 tables - 1 Parent & 2 Children with 2 relationships defined on the matching key fiels (Created using XML Designer). Note that "Create Foreign Key Constraint Only" is not set and rules are set to Cascade. I have a datagrid that I assign the datasource to be the dataset, parent table.

I use 3 data adapters to populate the individual tables in the dataset using simple select clauses in each one. (i.e. Select * from myTable)

When the datagrid appears, each record shows the parent details with a + sign on each row. Clicking the plus sign displays the 2 relationship names. Clicking on either name changes the datagrid to display the child records with the parent fields displayed on top. Problem is that no child records are being displayed even though each parent has at least 1 child. When I browse the individual tables through the datagrid, all records from each table are present.

I have run a select query in the query analyser and it returns appropriate child records.

Any ideas?

Bruce

Happy Hunting

Help: How can I press a button?

rdges3-Dec-04 3:31

rdges

3-Dec-04 3:31

How can I press a button in an windows application? I must press it and later, I must read the text of three textbox of this windows form...? I don't know, but i think that "Hook Messages" are the solution...?

Please, I need help.
Thanks.

Italy

Re: Help: How can I press a button?

Sven Cipido3-Dec-04 3:42

Sven Cipido

3-Dec-04 3:42

What I understand about your question will give this solution :

in the development environment of Vosual Studio.Net double click on your button. This will bring you to the codepart of your windows form. An event is created for you (the click event). In here you can program everything that you want to do, like reading your 3 textboxes.

Hopes this is the answer for your problem, otherwise give some more info in what you mean with press a button.

Excuse me, but...

3-Dec-04 3:54

My problem is different. I need to create one application("New.exe"):
with this event on Form1_Load:

hIr = FindWindow("Ir", vbNullString)
If IsWindow(hIr) = 0 Then
Call Shell("Ir.exe", 1)
Do Until IsWindow(hIr)
hIr = FindWindow("Ir", vbNullString)
DoEvents
Loop
End If

It opens another application("IR.exe"), but I need push one button of IR.exe, it reads three textboxes and it prints the values in my new application. But in hide mode!!

Italy

Desktop Icons

GRMartin3-Dec-04 1:46

GRMartin

3-Dec-04 1:46

Could anyone possibly give me an API, MSDN Reference, or a starting point?

Im trying to create a program that will auto arange the icons on the desktop. But i cant seem to find even an Native API to access the desktop.

Any help is appreciated.
Thank you.

Re: Desktop Icons

MohammadAmiry4-Dec-04 2:53

MohammadAmiry

4-Dec-04 2:53

This could be a start point (hope it works Smile | :)

Desktop is a ListBox and you can simply find the handle to that listbox by API.
Then using SendMessage API and the ListBoxMessages[^] to work with that.

Crystal Report

nitin_ion2-Dec-04 22:07

nitin_ion

2-Dec-04 22:07

I have two tables Table 1, Table 2
Table1's Primary key(Int) is Foreign Key of Table2I'm performing search on Table1 and then picking up single value from Table2. I want to print value all the value from Table1 and single value from Table2. How can i print it on a report. when i try to print value of Table2 it return an empty dataset

Re: Crystal Report

Tom John2-Dec-04 22:18

Tom John

2-Dec-04 22:18

Try changing the join type in CR database links so that all records from Table1 are selected and only matching records from Table2 (Left Outer Join).

Then in the format of the group the record is printed set the suppress formula (VB Syntax):

Formula = (PreviousValue({Table1.PrimaryKeyField}) = {Table1.PrimaryKeyField})

Hope this helps

Tom

VB6 - How to list network domains and/or users

steff kamush2-Dec-04 21:11

steff kamush

2-Dec-04 21:11

How can I list network domains and/or users in Win NT, 2000 and XP in VB6?
Anyone know an API or other way I will appreciate.

Rose | [Rose]

1fm1fu

Use Ctrl+Left/Right to switch messages, Ctrl+Up/Down to switch threads, Ctrl+Shift+Left/Right to switch pages.