Diploma_Work/carsav.vb

（完整代码） 1KB 

Imports System.Data.OleDb

Public Class carsav
    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 Cars ([Մակնիշ],[Գույն],[Տարեթիվ],[Վազք_KM],[Շարժիչի_կոդ],[Նույնացման_կոդ],[Թափքի_կոդ],[VIN],[Մոտավոր_արժեք],[Լրացում]) VALUES ('" & TextBox1.Text & "' , '" & TextBox2.Text & "' , '" & TextBox3.Text & "' , '" & TextBox4.Text & "', '" & TextBox5.Text & "' , '" & TextBox6.Text & "' , '" & TextBox7.Text & "' , '" & TextBox8.Text & "' , '" & TextBox9.Text & "' , '" & TextBox10.Text & "')"
        cmd.Connection = con
        con.ConnectionString = serverstring
        con.Open()
        cmd.CommandText = sqlquery
        cmd.ExecuteNonQuery()
        con.Close()
    End Sub

End Class

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

AI 解读 AI

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

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