Question

给定几个textbox输入数据，然后将这些数据插入到数据库，具体代码应该怎么写，思路是什么？

小弟初涉编程，还望大大指教~

Answer 1

这是最简单的啊。学数据库编程最基本的就是 增 删 改，你说的这种就是其中的增。即向数据库内部添加记录。
要想加入数据库数据，首先要对数据库适配器进行初始化，包括 定义 CONNECTION STRINGS，定义command,然后执行COMMAND即可。
dim con as new sqlconnection("数据库连接字符串")
Dim com As New SqlClient.SqlCommand(“insert into a ('textbox1.text.tostring,textbox2.text.tostring')"，con)
com.ExecuteScalar
基本就是这种语法，N年不写了，可能有些小问题，建议网上查下吧。

Answer 2

这是个简单的登录界面 有你要的控件 你看看
Dim conn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim loginflag As Boolean

Private Sub Command1_Click()
Set conn = New ADODB.Connection
Set rs = New ADODB.Recordset
'建立无源数据库连接
conn.ConnectionString = "driver={sql server};server=12-3FDA18CE0DDC;uid=sa;pwd=sa;Database=test"
conn.ConnectionTimeout = 50
conn.Open
Dim str As String
'连接连接对象
Set rs.ActiveConnection = conn
'设置游标类型
rs.CursorType = adOpenDynamic
If Trim(Text1.Text = "") Then
MsgBox "用户名不能为空，请重新输入用户名！", vbOKOnly + vbExclamation, "警告"
Text1.SetFocus
Else
'设置查询字符串
str = "select * from tt where name ='" & Trim(Text1.Text) & "'"
rs.Open str
If rs.EOF = True Then
MsgBox "没有这个用户，请重新输入用户名!", vbOKOnly + vbExclamation, "警告"
Text1.SetFocus
Else
'登录成功，连接主窗口
If (Trim(Text2.Text) = Trim(rs.Fields("password"))) Then
loginflag = True
Me.Hide
Form2.Show
MsgBox "登陆成功"
Else
MsgBox "密码不正确，请重输入密码!", , "警告"
Text2.SetFocus
SendKeys "{Home}+{End}"
End If
End If
End If
End Sub

Private Sub Command2_Click()
Me.Hide
loginflag = False
End
End Sub