Diploma_Work/autopartsav.vb

（完整代码） 995B 

Imports System.Data.OleDb


Public Class autopartsav
    Dim serverstring As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\Database1.accdb"
    Dim con As New OleDbConnection
    Dim cmd As New OleDbCommand
    Dim reader As OleDbDataReader

   

    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Dim sqlquery As String = "INSERT INTO Auto_Parts ([Անուն],[Համար],[Երաշխիք],[Գին],[Մնացորդ]) VALUES ('" & TextBox1.Text & "' , '" & TextBox2.Text & "' , '" & TextBox3.Text & "' , '" & TextBox4.Text & "', '" & TextBox5.Text & "')"
        cmd.Connection = con
        con.ConnectionString = serverstring
        con.Open()
        cmd.CommandText = sqlquery
        cmd.ExecuteNonQuery()
        con.Close()

    End Sub

    Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
        Me.Close()
        Form2.Show()
    End Sub
End Class

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

AI 解读 AI

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

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