PDA

View Full Version : سوال در مورد اتصال به دیتابیس



sca_ir
شنبه 08 تیر 1387, 12:29 عصر
سلام دوستان
این کد اتصال به دیتابیس هست، ببینید کجای این کد ایراد داره که error می گیریه؟


Imports System.Data.SqlClient

Imports System.Xml

PublicClass Form1

PrivateSub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesMyBase.Load

Dim CN AsNew SqlConnection()

Dim SqlCmd AsNew SqlCommand()

Dim SqlAdapt AsNew SqlDataAdapter(SqlCmd)

Dim Ds AsNew DataSet

SqlCmd.Connection = CN

SqlCmd.CommandText = ""

CN.Close()

CN.ConnectionString = "SERVER = " & ServerName & _

" ; DATABASE =" & DataBaseName & _

" ; User ID =" & My_UserName & _

" ; Pwd = " & My_Password

CN.Open()

SqlCmd.CommandType = CommandType.StoredProcedure

SqlCmd.ExecuteNonQuery()

SqlAdapt.Fill(Ds)

EndSub

EndClass

samispeed
شنبه 08 تیر 1387, 16:55 عصر
اولا کدی که اینجا گذاشتید کامل نیست تا بشه فهمید error مال کدام قسمت است شما به جای connection string از این استفاده کنید


CN.ConnectionString = "Server=SQL Server;Data Source=local;Initial Catalog=xyz;Integrated Security=True"

xyz نام database شما می باشد
و


Dim SqlCmd As New SqlCommand("stpxy", CN)

stpxy نام storedprocedure شما می باشد در برنامه شما از آن نام نبرده شده است

saman_itc
یک شنبه 09 تیر 1387, 11:21 صبح
Public Const er As String = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=""Shali.mdb"""
ol_cn = New OleDbConnection(er)
ol_cn.Open()