问题求解

Question

Dim i As Integer
      Set db = New ADODB.Connection
      Set rs = New ADODB.Recordset
      db.ConnectionString = "driver={SQL Server};server=WUJH;database=学籍管理"
      db.Open
      rs.Open "select 学号 from 学生信息 where 姓名= '" & Trim(Text1.Text) & "'", db, adOpenStatic, adLockReadOnly
      rs.Close
      i = Trim(rs.Fields("学号").Value)
      If Text5.Text <> "" Then
      Set db = New ADODB.Connection
      Set rs = New ADODB.Recordset
      db.ConnectionString = "driver={SQL Server};server=WUJH;database=学籍管理"
      db.Open
Set db = New ADODB.Connection
      Set rs = New ADODB.Recordset
      db.ConnectionString = "driver={SQL Server};server=WUJH;database=学籍管理"
      db.Open
      rs.Open "insert into 社会活动表(姓名,学号,时间,地点,活动内容,备注) values ( '" & Trim(Text1.Text) & "',i,'" & Trim(Text2.Text) & "','" & Trim(Text3.Text) & "','" & Trim(Text4.Text) & "', '" & Trim(Text5.Text) & "')", db, adOpenStatic, adLockReadOnly
      Else
      
我的意思是在学生信息表中找到text1.text的学号，如果Text5.Text <> "" 则把该学号连同其他信插入社会活动表中，该如何写程序？
谢谢

Answer 1

首先，如果你的社会活动表和学生信息表在一个数据库中的话，
数据库连接只作一次就可以了
      Set db = New ADODB.Connection
      Set rs = New ADODB.Recordset
      db.ConnectionString = "driver={SQL Server};server=WUJH;database=学籍管理"
      db.Open
      rs.Open "select 学号 from 学生信息 where 姓名= '" & Trim(Text1.Text) & "'", db, adOpenStatic, adLockReadOnly
      dim strSQl as string
      if not rs.eof and not rs.bof then
          rs.Close
          if trim(text5.text)<>"" then
             strSQl="insert into 社会活动表(姓名,学号,时间,地点,活动内容,备注) " _
                & "values ( '" & Trim(Text1.Text) & "',i,'" & Trim(Text2.Text) & "','" & Trim(Text3.Text) & "','" & Trim(Text4.Text) & "', '" & Trim(Text5.Text) & "')"
             db.Excute strSQl 
          end if
      end if

Answer 2

运行没有通过：
strSQl="insert into 社会活动表(姓名,学号,时间,地点,活动内容,备注) " _
                & "values ( '" & Trim(Text1.Text) & "',i,'" & Trim(Text2.Text) & "','" & Trim(Text3.Text) & "','" & Trim(Text4.Text) & "', '" & Trim(Text5.Text) & "')"
里有" _
                & 是什么意思我想在另一个表中抽出一个学号来跟其他数据存如另一个新表