vb 模块 数据库连接

Question

在gssz窗体里,通过一个s = InputBox("请输入建表的表名（第一个不能是数字）：", "建表提示")让用户建立一个表，表的名字在用户未使用软件的时候是不知道的，在gzb窗体里面我想在这个表里面添加数据，正常的adodc1里的sql 语句应该是 select * from 表  但是现在 我不知道表的名字，只是知道 dim s  as string  ，当用户自己建立了一个表的时候，我怎么做才能在gzb窗体里面添加数据到用户新建的一个表呢？大家帮忙指点指点呗

Answer 1

strsql="insert into " & strTableName & " (……) values(……)" 

Answer 2

strsql="select * from " & a

Answer 3

这个用adodb方便要用adodc
可以用sql="select * from " & strTableName  

Answer 4

这个语句a的值是从哪里取的？是s付给a的么是？是不是要定义一个全局变量？

Answer 5

直接s设为全局变量，s = InputBox("请输入建表的表名（第一个不能是数字）：", "建表提示")strsql="select * from " & s

Answer 6

在gssz窗体里定义了dim s as string  在gzb窗体里可以调用？

Answer 7

本来是要打s的，a和s挨太近了，就打错了。哎。

Answer 8

那就建个模块，把S定义为全局变量，操作如下
在资源管理器中选中一个窗体-->右键-->添加-->添加模块-->打开
在里面写：public s as string 
然后在把你之前的dim s as string去掉

Answer 9

 Adodc1.RecordSource = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=警员工资管理系统;Data Source=."
 Adodc1.RecordSource = "select * from" & s
 Adodc1.Recordset.Fields(0) = Text1.Text
 Adodc1.Recordset.Fields(1) = Text2.Text
 Adodc1.Recordset.Fields(2) = Text3.Text
 Adodc1.Recordset.Fields(3) = Text4.Text
 Adodc1.Recordset.Fields(4) = DataCombo2.Text
 Adodc1.Recordset.Fields(5) = DataCombo1.Text
 Adodc1.Recordset.Fields(6) = DataCombo3.Text
 Adodc1.Recordset.Fields(7) = DataCombo4.Text
' Adodc1.Recordset.Fields(7) = DataCombo4.Text
 Adodc1.Recordset.Fields(8) = Text5.Text
 Adodc1.Recordset.Fields(9) = Text6.Text
 
 Adodc1.Recordset.Update
 
 Adodc1.Refresh
 MsgBox "保存成功"
数据添加不进去

Answer 10

Adodc1.RecordSource = "select * from" & s 
改成Adodc1.RecordSource = "select * from " & s 
from后面加一空格

Answer 11

没有用的，报错，对象变量或With块变量为设置

Answer 12

Adodc1.RecordSource = "select * from" & s 改成
Adodc1.Recordset.open "select * from" & s
笔误吧，RecordSource怎么给写成SQL语句

Answer 13

错误太多了
连接字符串用 Adodc1.ConnectionString
而且你的连接也不对，找不到数据库

Answer 14

Adodc1.RecordSource = "select * from " & s
可以这么用

Answer 15

http://download.csdn.net/source/1498324

Answer 16

Adodc1.RecordSource = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=警员工资管理系统;Data Source=." 
Adodc1.RecordSource = "select * from " & s 
Adodc1.Recordset.AddNew  '加上这句，试试
Adodc1.Recordset.Fields(0) = Text1.Text 
........
应保证s有值

Answer 17

Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\ACCESS文件名.mdb;Persist Security Info=False" 
Adodc1.CommandType = adCmdText 
Adodc1.RecordSource = "select * from " & s
Adodc1.Refresh 
With Adodc1.Recordset 
  .AddNew
  .Fields("字段1名") = "内容1"
  .Fields("字段2名") = "内容2"
  .Fields("字段3名") = "内容3"
  .Update
  .Close
end with