如何把combox的中的text作为一个字段保存到数据库的一个表中?你把它生成SQL语句呀, 看看 CREATE TABLE ....第一个问题问太空洞太简单了 没法回答

解决方案 »

  1.   

    dim servername,databasename
    Servername=z007
    Databasename=mydb
    sql = "Provider=SQLOLEDB.1;User ID=sa;Initial Catalog=master;Data Source= " & Servername
    Con.Open sql
    sql = "SELECT *  FROM  sysdatabases  Where name = '" & Databasename & "'"
    rs.Open sql, Con, adOpenKeyset, adLockReadOnly, adCmdText
    If rs.RecordCount = 1 Then
    sql = "drop database " & Databasename
    Con.Execute sql
    End If
    sql = "create database " & Databasename & " on ( name=" & Databasename & ", filename= 'd:\mydb.mdf') log on ( name=" & Databasename & "_log, filename='d:\mydb.ldf')"
    Con.Execute sql
    Con.Close
      

  2.   

    sql = "insert into yourtable (field1) values( " & combox1.text &"("
    Con.Execute sql