① VB＋SQL SERVER怎么把数据加入数据库里的一个表里
为了将数据加入到数据库中的一个表中，我们首先需要判断用户信息是否存在。具体步骤如下：
1. 进入系统：检查输入的用户名是否存在于“用户信息表”中。使用SQL查询语句执行：`SELECT * FROM “用户信息表” WHERE user=?`，如果查询结果存在，继续下一步；否则，提示错误并退出程序。
2. 判断密码：如果用户名存在，再判断输入的密码是否正确。使用以下SQL查询语句：`IF user=? AND password=? THEN`，若密码匹配，则继续执行插入操作。否则，显示错误信息并退出。
3. 插入数据：在验证用户名和密码都正确后，执行插入操作。使用以下SQL语句插入临时用户名和密码到“用户信息表”中：`INSERT INTO “用户信息表”(临时用户名,临时密码) SELECT 'user','passowrd'`。
4. 检查临时表：在插入数据后，需要检查“临时表”中是否已存在该用户名和密码的记录。使用以下SQL查询语句：`SELECT * FROM “临时表” WHERE user=?`，如果查询结果存在，执行删除操作：`DELETE FROM 临时表 WHERE user=?`。若查询结果不存在，则程序自动退出。
5. 结束程序：使用“unload me”命令退出程序。
② VB读取excel数据并插入到数据库
在VB中读取Excel数据并将其插入到数据库，需要通过以下步骤实现。
首先，激活Excel应用程序，并将其设置为不可见。这一步骤是通过创建一个Excel应用程序对象xlApp，并将其设置为不可见来完成的，具体代码为：
Set xlApp = CreateObject("Excel.Application")
xlApp.Visible = False
接下来，通过指定的文件名打开一个Excel工作簿。这里，FileManually是一个已经存在的Excel报表文件，代码如下：
Set xlBook = xlApp.Workbooks.Open(FileManually)
然后，根据用户输入的表名设置工作表。这里，使用了Trim函数去除表名中的空格，并将其赋值给xlSheet变量，代码如下：
Set xlSheet = xlBook.Worksheets(Trim(txtSheetNM.Text))
接着，遍历工作表中的每一行数据。这里使用了一个For循环，从第一行开始遍历到最后一行，具体代码如下：
For IRowsCount = 1 To xlSheet.UsedRange.Cells.Rows.Count
在遍历每一行时，检查当前行的第一个单元格是否为空。如果为空，则跳出循环，具体代码如下：
If Trim(xlSheet.Cells(IRowsCount, 1)) = "" Then Exit For
如果当前行的第一个单元格不为空，接下来将该行的数据插入到数据库中。这一步骤中，可能需要对某些单元格的数据进行处理，例如将“男”和“女”转换为1和0，然后再写入数据库。具体的代码示例如下：
转换男女可以判断xlSheet.Cells(IRowsCount,列号)="男",则=1,否则=0,然后再写入数据库