1-3利用SQL语句创建数据库和数据表首先引用:”代码:publicsub1_3()‘mand‘mand对象变量dimmydataasstring‘定义数据库名称变量dimmytableasstring‘定义数据表名称变量dimSQLasstring‘设置要创建的数据库名称(包括完整路径)mydata=&“\”‘设置要创建的数据表名称mytable=”期末成绩”‘oto0‘“provider=;Datasource=”&mydata‘=‘设置创建数据表的SQL语句SQL="CREATETABLE"&myTable_&"(学号text(10),姓名text(6),性别text(1),班级text(10),"_&"数学Single,语文Single,物理Single,化学Single,"_&"英语Single,总分Single)"‘mandtext=,,adcmdtextendwith‘释放变量setmycat=nothingsetmycmd=nothing‘弹出信息msgbox“创建数据库成功!”&vbcrlf&“数据库文件名为:”&mydata&vbcrlf&“数据表名称为:”&mytable&vbcrlf&“保存位置:”&,vbinformation,”创建数据库”endsub注:有两种方法来创建数据表:·mandtext属性和execute方法:==,,adcmdtextendwith·=(sql)1-6在已有的数据库中创建数据表(mand对象)引用::publicsub1_6()‘mand‘mand对象变量dimmydataasstring‘定义数据库名称变量dimmytableasstring‘定义数据表名称变量dimsqlasstring‘设置数据库名称(包括完整路径)mydata=&“\”‘设置要创建的数据表名称mytable=”期末成绩”‘=”provider=;”_&“datasource=”&mydata‘‘=‘设置创建数据表的SQL语句SQL=”CREATETABLE”&mytable_&“(学号text(10),姓名text(6),性别text(1),班级text(10),”_&“数学single,语文single,物理single,化学single,“_&“英语single,总分single)”‘mandtext=,,adcmdtextEndwith‘释放变量Setmycat=nothingSetmycmd=nothing‘弹出信息Msgbox“数据表<”&mytable&“>创建成功!”,vbinformation,”创建数据表”Endsub1-7在已有的数据库中创建数据表(SQL,Recordset对象)引用::publicsub1_7()‘‘定义Recordset对象变量dimmydataasstring‘定义数据库名称变量dimmytableasstring‘定义数据表名称变量dimsqlasstring‘设置数据
ado 数据手册 来自淘豆网www.taodocs.com转载请标明出处.