ramin149
سه شنبه 11 خرداد 1389, 10:12 صبح
سلام من تازه از vb محاجرت کردم و من برای اتصال به دیتابیس از کد های زیر استفاده می کردم در asp.net ولی الان می خوام با win C# اتصال کنم به database اکر می شه کلاس اتصال به database رو برام بگذاریید .
Public Class DataAccessLayer
Dim objcon As New SqlConnection
Dim dt As New DataTable
Dim da As New SqlDataAdapter
Dim com As New SqlCommand
Dim strcon As String = "data source=.\sqlexpress;attachdbfilename=|datadirector y|\database.mdf;" & _
"integrated security=true;user instance=true;"
Public Sub connect()
objcon.ConnectionString = strcon
If objcon.State = ConnectionState.Closed Then
objcon.Open()
End If
End Sub
Public Sub disconnect()
'objcon.ConnectionString = strcon
If objcon.State = ConnectionState.Open Then
objcon.Close()
End If
End Sub
Public Function doselect(ByVal str As String)
com.CommandText = str
com.Connection = objcon
da.SelectCommand = com
da.Fill(dt)
Return (dt)
End Function
Public Sub docommand(ByVal str As String)
com.CommandText = str
com.Connection = objcon
com.ExecuteNonQuery()
End Sub
End Class
Public Class DataAccessLayer
Dim objcon As New SqlConnection
Dim dt As New DataTable
Dim da As New SqlDataAdapter
Dim com As New SqlCommand
Dim strcon As String = "data source=.\sqlexpress;attachdbfilename=|datadirector y|\database.mdf;" & _
"integrated security=true;user instance=true;"
Public Sub connect()
objcon.ConnectionString = strcon
If objcon.State = ConnectionState.Closed Then
objcon.Open()
End If
End Sub
Public Sub disconnect()
'objcon.ConnectionString = strcon
If objcon.State = ConnectionState.Open Then
objcon.Close()
End If
End Sub
Public Function doselect(ByVal str As String)
com.CommandText = str
com.Connection = objcon
da.SelectCommand = com
da.Fill(dt)
Return (dt)
End Function
Public Sub docommand(ByVal str As String)
com.CommandText = str
com.Connection = objcon
com.ExecuteNonQuery()
End Sub
End Class