SQL SERVER & VB.NET Connection

Gurdeep

Hellow everyone, I have problem with getting connection with SQLSERVER Database using vb.net whille the application i am developing is purly based on sql database connection.. My code on Load form is
______________________________________________________________________________

Imports System
Imports System.Data
Imports System.Data.SqlClient
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim conTransit As SqlConnection = New SqlConnection("Server=devsql;Database=Transporter;Integrated Security=SSPI")
conTransit.Open()
MessageBox.Show("Conection succedded")
conTransit.Close()
End Sub
End Class

___________________________________________________________________________
Any help or commnet is warmly welcome also how can i load the data and ADD, DELETE and DPDATE using ADO.net Help Pls

3 Replies

Know the answer? Post it — somebody with the same question will find it here.

Ripal Soni19y ago
try to close your command as everytime you will call this function it will try to create new command of same name

try this out i hope it will help you

if not(mycommand is nothing) then
mycommand.dispose()
mycommand=nothing
end if
Gurdeep19y ago
I got that sorted thanks for reply anyway.. But I have new problem now I am using ADO.NET for my vb.net application.. I have a combobox on a form which holds the unique datafield on selection its filling all other fields on the form form SQL Server database Its all Working fine... I am using a function Custcomboitems() where i have data- attached to the combo box... In order to update/fill the combo box on updating or saving the data i call that function after SAVE and UPDATE button.... but after pressing SAVE/UPDATE button When i call the Custcomboitems() function it displays the error There is already an open DataReader associated with this Command which must be closed first. IT DOES SAVE THE DATA TO THE DATABASE ANYWAY BUT I HAVE TO RUN APPLICATION AGAIN TO GET THAT UPDATE.... ANY HELP ..... ANY BODY.... my fucntion is like this

Private Sub Custcomboitems()

Dim dc(1) As DataColumn
Dim dcCntry(1) As DataColumn
Try
If conTransit.State = ConnectionState.Closed Then
conTransit.Open()
End If
Dim myCommand As New SqlCommand("Select * From Customer order by Short_Description", conTransit)
Dim myReader As SqlDataReader
myReader = myCommand.ExecuteReader()
While myReader.Read()
daCustomer = New SqlDataAdapter(myCommand)
daCustomer.Fill(dtCustomer)

dc(0) = dtCustomer.Columns("Customer_ID")
dtCustomer.PrimaryKey = dc

cmbCustShortDesc.DataSource = dtCustomer
cmbCustShortDesc.DisplayMember = "Short_Description"
cmbCustShortDesc.ValueMember = "Customer_ID"

End While
Me.myReader.Close()

End Sub
'Where
'conTransit is SQL connection which is working fine
'cmbCustShortDesc is combo box to which data is bound

ANY HELP PLZ
Gordon Adams19y ago
Your code ran fine when I replaced your connection string with my connection string.
My Connection String:
"Server=ServerNameHere;uid=UserIDHere;pwd=PasswordHere;database=DataBaseNameHere;"

Only thing in code changes is your Dim statement could be written:
Dim conTransit As New SqlConnection("ConnectionStringHere")
But what you have will work, just not necessary.

Here is a great link for different connection strings:
http://www.connectionstrings.com/

Also depending on what error your getting may mean you need to have SQL Server Service Manager running.

Good Luck!