• Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 273
  • Last Modified:

Inputing Into SQL DB from Visual 2003 App

I'm a VB 6.0 programmer that is used to using commands such as the ones shown below.  I'm trying to take baby steps so all I want to do now is create a simple form and enter the information into a single table within a SQL DB located on my laptop.  Are there any easy tutorials or examples I can cheat off of to learn how to do this?  

Const provider As String = "Provider=SQLOLEDB;Data Source=servername;Initial Catalog=tablename;Integrated Security=SSPI;"
Public cn As ADODB.Connection

Dim variablename As New ADODB.Recordset

Public Sub opendatabase()
    On Error GoTo error
   
    Set cn = New ADODB.Connection
    cn.ConnectionString = provider
    cn.Open
    Exit Sub

error:
    Dim errloop, errcol
    Set errcol = cn.Errors
    MsgBox provider
    For Each errloop In errcol
        MsgBox errloop.Description & vbCrLf
    Next
End Sub

0
clebo99
Asked:
clebo99
1 Solution
 
Clever_BobCommented:
Gidday clebo99, looks like you are going pretty well here

You just need to drop the info into SQL Server now, something like this....

qlStr="Insert Into MyTable (Fld1, Fld2, Fld3) Values ('" & Text1.Text & "','" & Text2.Text & "'," & iif(Text3.Text & "" = "","NULL","'"&Text3.Text&"'")  & ")"

cn.execute(qlStr)

Hope this helps!
0
 
clebo99Author Commented:
Thanks......I guess what I am confused about is the initial setup of the DB connection within the code.  Remember, I'm really used to VB 6 and am trying to transition to VB 2003.  The above code is exactly how I would do this in VB6 and I'm hoping it's just as close in VB 2003, although the book I have (that learn VB in 21 days) doesn't make it very clear on how to set this us.

The error I seem to be getting in VB 2003 is with the variable declaration of the ADODB connection.  It doesn't seem to understand that.  

The way I learn (fortunately or unfortunately) is to see a simple example and then run with it.   I am really hoping that it is as easy (maybe easy isn't the right word.  How about "the same") as in VB 6.0 where I can declare my DB connections, write a simple "OPEN DB" Procedure and perform simplified INSERT/UPDATE queries to the DB.

Does anyone have a quick "cheat sheet" on what the initial "setup" in the code would be for this?  

Chris

0

Featured Post

Industry Leaders: We Want Your Opinion!

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

Tackle projects and never again get stuck behind a technical roadblock.
Join Now