求一个用dao连接sql数据库的vc程序

来源：百度知道 编辑：UC知道 时间：2024/05/30 04:41:27
要求必须用DAO 可是我不会啊，郁闷！还急着要。。。痛苦 没分了，悬赏分不高 大家帮帮忙啊
具体怎么操作啊 。。。晕乎。。。

Dim sConnectionString As String
sConnectionString = "Server=(local);DataBase=mydatabase;Uid=sa;Pwd="

Dim objConn As New SqlClient.SqlConnection(sConnectionString)
objConn.Open()

Dim daAuthors As New SqlClient.SqlDataAdapter("Select * From department", objConn)

Dim dsPubs As New DataSet

daAuthors.Fill(dsPubs, "Department")

Dim oRpt As New CrystalReport1

oRpt.SetDataSource(dsPubs)

CrystalReportViewer1.ReportSource = oRpt