[thava]

NoBrain, on 15 April 2010 - 04:57 AM, said:

so what you say is

Dim MyConnObj As ADODB.Connection
Dim myRecSet As ADODB.Recordset

Set MyConnObj As New ADODB.Connection
Set myRecSet As New ADODB.Recordset

instead of

Dim MyConnObj As New ADODB.Connection
Dim myRecSet As New ADODB.Recordset

why?

1)

Dim obj As MyClass
Set obj = New MyClass

2)

Dim obj As New MyClass

there is difference between this two statements
in the second declaration VB6 will treat the obj as an auto-instantiated variable.
later when you try to use it VB will check if it should be instantiated or not. This will cost you some extra CPU cycles, so the speed of the program might be slightly reduced.

This post has been edited by thava: 18 May 2010 - 07:32 PM

[knightski]

I have a code to make a new table in ms access. My problem is how to connect to that table after. How to save on that table.
Any help is welcome. Thank You

[skyv]

Im getting an error saying : INVALID OBJECT NAME 'myTable' at the following code:

myRecSet.Open “select * from myTable”, MyConnObj, adOpenKeyset


I don't know why. Need some help pleazzzzzzz

[skyv]

skyv, on 11 October 2010 - 08:59 AM, said:

Im getting an error saying : INVALID OBJECT NAME 'myTable' at the following code:

myRecSet.Open “select * from myTable”, MyConnObj, adOpenKeyset


I don't know why. Need some help pleazzzzzzz

------
Here is my VB code after creating successfully the database, the table and inserting records into the table with SQL:

Private Sub Command1_Click()
Dim MyConnObj As New ADODB.Connection 'ADODB Connection Object
Dim myRecSet As New ADODB.Recordset 'Recordset Object
Dim sqlStr As String ' String variable to store sql command

MyConnObj.Open _
"Provider = sqloledb;" & _
"Data Source=SKYLAPTOP;" & _
"Initial Catalog=TESTATV;" & _
"User ID=sa;" & _
"Password=sql2005;"

sqlStr = "select * from employee"
myRecSet.Open sqlStr, MyConnObj, adOpenKeyset

MsgBox "Total Number of records = " & myRecSet.RecordCount

Dim i As Integer 'variable to keep count i = 1
Print "#"; Tab; "ID"; Tab; "Name"; Tab; "Salary"
Print ""
While Not myRecSet.EOF ' Loop until endd fo file is reached
Print i; Tab; myRecSet(0); Tab; myRecSet(1); Tab; myRecSet(2)'0- 1st filed, 1- 2nd Field and so on...
myRecSet.MoveNext 'Moves the RecordSet pointer to the next position
i = i + 1
Wend
MyConnObj.Close

End Sub

***Now I'm getting an error saying: Invalid object name 'employee' at the underlined line above.....

[emperorc]

bharath.karthikeyan, on 23 November 2009 - 03:03 AM, said:

Very Good post...A few optimistation for QTP's VB compliance...The code worked w/o a hitch....Thx a lot,Much appreciated!

By any chance...a code to execute an already existant stored procedure in SQL server would be really appreciated from your side.

[JimSandberg]

Hi,

This probably is a stupid question, but I don't understand which User ID and Password is being referred to! :S
When I try to run the code, the application stops for a good 15-20 seconds.
After that it gives me an error message saying:

[DBNETLIB][ConnectionOpen (Connect()).]SQL Server does not exist or access denied.

I tried googling it and found alot of supposed fixes, nothing has worked yet! Though I'm not sure what the issue might be!
From what I understand, this method of connecting to an SQL does not require an ODBC, right?

Now, is there something crucial that I'm missing? Any settings in the SQL-database I should have another look at?

Help is greatly appreciated!

Thanks in advance
Regards,

Jim