form1.vb

来自「学生成绩管理系统」· VB 代码 · 共 75 行

Public Class Form1
  

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Module1.db()


        cmd.CommandText = "select * from stu,sc where stu.sno=sc.sno"

        conn.Open()
        da.SelectCommand = cmd
        da.Fill(ds)

        ' da.SelectCommand = New OleDb.OleDbCommand("select * from stu,sc where stu.sno=sc.sno", conn)

        'da.Fill(st)

        'ds.Tables.Add(st)

        'da.Fill(ds, "st")
        conn.Close()





        DataGridView1.DataSource = ds.Tables(0)
        ' TextBox1.Text = objds.Tables("table").Rows(0).Item(0)
        '  ComboBox1.DataSource = st : ComboBox1.DisplayMember = "sno"




    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim conn As New OleDb.OleDbConnection
        Dim da As New OleDb.OleDbDataAdapter
        Dim cmd As New OleDb.OleDbCommand
        Dim ds As New DataSet
        Dim st As New DataTable
        Dim tblxk As New DataTable

        conn.ConnectionString = "provider=microsoft.jet.oledb.4.0;data source='D:\student.mdb'"

        cmd.CommandText = "select * from stu"
        cmd.Connection = conn
        conn.Open()
        da.SelectCommand = cmd
        da.Fill(ds)







        ds.Clear()


        da.Update(ds)


        conn.Close()


        MsgBox("daa")




    End Sub
End Class