Diploma_Work/addclient.vb

（完整代码） 1KB 

Imports System.Data.OleDb
Imports System.Security

Public Class addclient


    Dim con As New OleDbConnection
    Dim cmd As New OleDbCommand
    Dim reader As OleDbDataReader



    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim dt As New DataTable
        Dim ds As New DataSet
        Dim da As New OleDbDataAdapter
        Dim sql As String = "insert into Client([Անուն],[Ազգանուն],[Հասցե],[Հեռախոս],[Էլեկտրոնային հասցե]) values('" & TextBox1.Text & "' , '" & TextBox2.Text & "' , '" & TextBox3.Text & "' , '" & TextBox4.Text & "', '" & TextBox5.Text & "');"
        con.Open()
        ds.Tables.Add(dt)
        da = New OleDbDataAdapter(sql, con)
        da.Fill(dt)
        con.Close()
        MsgBox("Հաճախորդն ավելացված է", MsgBoxStyle.Information)

    End Sub
    Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
        Me.Close()
        Form1.Show()
    End Sub
    Private Sub addclient_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        Me.CenterToScreen()
        Timer1.Start()
        con.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\Database1.accdb"
    End Sub
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

        Label6.Text = TimeOfDay.ToString("h:mm:ss tt")

    End Sub
End Class

24 小时内免费解锁 3 个项目，之后 1 算力/个。 规则说明

AI 解读 AI

登录后可用，每次 10 算力，解读结果公开显示在下面。

还没有人解读过这个文件。