各位大侠，可以给小弟一些帮助否？

[Oo云]

小弟，刚刚接触vb.net，想知道在真实的项目里，利用vb.net是如何连接数据库的？我知道在vb.net里可以用控件来关联数据库，但好像在项目中是不会这样连接数据库，所以我想请可以大哥帮忙给个在真实项目中连接数据库的例子，最好也有增删改查的过程，小弟不胜感激！也算是为中国的软件行业，培养新人吧！哈！

[Oo云]

我觉得还不够详细，嘿，在顶上去！

[htpower]

数据库链接

Public Shared connstr As String = "Server=" & _
    sqlservername & ";packet size=4096;Database=" & sqldatabase & _
    ";User ID=" & sqlusername & ";Password=" & sqlpassword & ";Trusted_Connection=False"
    Public Shared Conn As New SqlConnection(connstr)

查询

DIM EchoDS as DATASET
Public Shared Function sqlread(ByVal sql As String, ByVal tablename As String)
        Try
            Dim sqlcmd As New SqlDataAdapter(sql, Conn)
            sqlcmd.Fill(EchoDS, tablename)
        Catch ex As Exception
            EchoDS.Tables(tablename).Reset()
            Return Nothing
        End Try
        Return Nothing
    End Function

增删改

Public Shared Function sqlrun(ByVal sql As String, ByVal okmsg As String, ByVal errmsg As String)
        Try
            Conn.Open()
            Dim sqlcmd As New SqlCommand(sql, Conn)
            sqlcmd.ExecuteNonQuery()
            Conn.Close()
            If okmsg <> "" Then
                MsgBox(okmsg, MsgBoxStyle.Information, "数据操作成功！")
            End If
        Catch ex As Exception
            If errmsg <> "" Then
                MsgBox(errmsg + " " + ex.Message, MsgBoxStyle.Exclamation, "数据操作失败！")
            Else
                MsgBox(ex.Message, MsgBoxStyle.Exclamation, "数据操作失败！")
            End If
            Return Nothing
        End Try
        Return Nothing
    End Function

[gjw_8888]

寫一個class,專門做數據庫處理

 Private iobj_connection As OleDb.OleDbConnection
 Private iobj_command As OleDb.OleDbCommand
 Private iobj_adapter As OleDb.OleDbDataAdapter

iobj_connection=new  OleDbConnection("聯接字符串")
iobj_adapter =new OleDbDataAdapter("sql",iobj_connection)
iobj_command =new OleDbCommand("sql",iobj_connection)
'''select用iobj_adapter.fill方法
'''update,delete,insert用iobj_command.ExecuteNonQuery()方法

[hmilj245216]

C/S 在app.config文件中连接

B/S 在web.config文件中连接

[xsjinfeng]

[Quote=引用 2 楼 hmilj245216 的回复:]


C/S 在app.config文件中连接

B/S 在web.config文件中连接
[/Quote]

[dreamice01]

直接在上面建一个数据库的连接，就可以查看到连接的代码是怎么写的呀！

[sunshine_anycall]

看看ado.net吧

[足球中国]

const sqlstr as string =server=;database=;password=;user=;
dim con as sqlcontion
con.contionstring=sqlstr
con.open