我用这段代码连接数据库
Imports System.Data
Imports System.Data.SqlClient

Public Class SQLClass1
Inherits System.Data.SqlClient.SQLDebugging
Public Shared Connstr As String = "server=localhost;database=Northwind;uid=sa;pwd="
Public Function CreateDataTable(ByVal SQLcmd As String) As DataTable
Dim conn As SqlConnection
Dim myadapter As SqlDataAdapter
Dim myaDataset As New DataSet
Try
conn = New SqlConnection(Connstr)
conn.Open() '打开数据库连接
myadapter = New SqlDataAdapter(SQLcmd, conn) '执行SQLcmd语句
myadapter.Fill(myaDataset) '将结果填充到myaDataset数据集中
conn.Close() '操作完成后关闭数据库连接
Return myaDataset.Tables(0) '返回数据集中的数据表
Catch ex As Exception
MsgBox(ex.Message)
End Try

End Function
多个form要连接数据库，在form1中要执行删除，在form2执行增加。怎么实现。。。

[此贴子已经被作者于2006-12-9 22:36:01编辑过]

我顶~~~~~~~大大来~~~~小弟顶的都很辛苦啊！

Public Sub myExecuteNonQuery(ByVal sqlstr As String)
Dim myconn As New System.Data.SqlClient.SqlConnection("server=localhost;database=Northwind;uid=sa;pwd=";")
Dim cmd As New System.Data.SqlClient.SqlCommand(sqlstr, myconn)
myconn.Open()
cmd.ExecuteNonQuery()
myconn.Close()
End Sub

sqlstr 就是你要执行的SQL语句,如果你要执行删除,就传入一个删除的SQL语句,要添加就传入一个添加的SQL语句,修改一样的道理.

哦~~顶
那这个类怎么用啊！我们现在做考试项目，老师说用3层架够
要把连接数据库的代码写成个类
可那个连接的类怎么用啊！相楼主那样的，要怎么调用！！
帮帮忙把掉用的过程说仔细点，谢谢

这样调用

Dim sc As SQLClass1()
Dim dt As DataTable
dt = sc.CreateDataTable("select * from Table")

Public conStr As New SqlClient.SqlConnection("data source=.;database=jxc;uid=sa;pwd=sa;")
Public cn As New SqlConnection("data source=.;database=master;uid=sa;pwd=sa;") 'integrated security=true


在模块里面直接定义旧可以用了 (全局变量)