缺少语句结束，哪里错了

Question

Dim transql As String
transql = "use master " & _
"DISK INIT " & _
"Name=""Device_1,"" & _
"Physname=""D:\SQL\data\devece1.dat""," & _
"vdevno = 10," & _
"size=102400" & _
"DISK INIT " & _
"Name=""Device2""," & _
"Physname=""D:\SQL\data\device2.dat""," & _
"vdevno=11,"& _
"size=204800"

Answer 1

这个解决了，高手帮帮看看这个OServer.Connect ServerName:="Localhost", Login:="sa", Password:=""一运行，提示说编译错误　
无效外部过程会是哪里有问题呢

Answer 2

Global OServer As New SQLOLE.SQLServerOServer.Connect ServerName:="Localhost", Login:="sa", Password:=""
Dim transql As String
transql = "use master " & _
"DISK INIT " & _
"Name=""Device_1""," & _
"Physname=""D:\SQL\data\devece1.dat""," & _
"vdevno = 10," & _
"size=102400" & _
"DISK INIT " & _
"Name=""Device2""," & _
"Physname=""D:\SQL\data\device2.dat""," & _
"vdevno=11," & _
"size=204800"

Answer 3

全部代码：Global OServer As New SQLOLE.SQLServerOServer.Connect ServerName:="Localhost", Login:="sa", Password:=""
Dim transql As String
transql = "use master " & _
"DISK INIT " & _
"Name=""Device_1""," & _
"Physname=""D:\SQL\data\devece1.dat""," & _
"vdevno = 10," & _
"size=102400" & _
"DISK INIT " & _
"Name=""Device2""," & _
"Physname=""D:\SQL\data\device2.dat""," & _
"vdevno=11," & _
"size=204800"
一运行。提示：编译错误　
无效外部过程Localhost会是有什么错了呢？

Answer 4

连接串应是String ，你这成什么了。。

Answer 5

dim strConn as String
strConn="ServerName:=Localhost,login:=sa,Password:= "
OServer.Connect strConn----------------这样试试呢

Answer 6

TO　hormezj（小吉）我是抄书的，书上是这样写的啊如果书上有错的话

Answer 7

to hillwayqiang() 如果书上真是这样,你就把这本破烂书扔掉吧

Answer 8

楼上的不要乱说
OServer.Connect ServerName:="Localhost", Login:="sa", Password:=""
这句语法上市没错误的这段代码可能是需要sql server 6.5hillwayqiang() 装的什么数据库，SQLOLE引用的是什么

Answer 9

如果是sql server2000,引用的应该是SQLDMO,本机测试可以通过
dim OServer As New SQLDMO.SQLServer
OServer.Connect ServerName:="", Login:="sa", Password:=""

Answer 10

dim OServer As New SQLDMO.SQLServer
OServer.Connect ServerName:="", Login:="sa", Password:=""

Answer 11

启动了SQL Server Manager后，我们就可以利用DMO与Transact-SQL按以下步骤来建数据对象了。　　1.为能使用DMO，首先需要打开VB工具栏中Reference(引用)，选择Microsoft Windows Common Control 5.0，如果在引用栏中没有发现此项，则选择Browse（浏览），将\WINNT\System32目录下的Comctl32.oca加入到Reference中来。　　2.在模块文件（.BAS)中建立SQLOLE对象：Global OServer as New SQLOLE.SQLServer 　　3.建立与SQL Server的连接： OServer.Connect ServerName:=注册的SQL Server名，Login:=登录名(一般为sa)，Password：=密码  　　4.建数据库设备Device_1与Device_2：dim transql as string 
transql="use master" & _
"DISK INIT" & _
"Name='Device_1'," & _ 
"Physname='D:\SQL\data\device1.dat'," & _
"vdevno=10," & _
"size=102400" & _
"DISK INIT" & _
"Name='Device2'," & _
"Physname='D:\SQL\data\device2.dat'," & _
"vdevno=11," & _
"size=204800"
OServer.ExecuteImmediate Command:=transql,exectype:=SQLOLEExec_Default 　　5.建数据库Db_1与Db_2：transql = "CREATE DATABASE Db_1 ON Device_1=100 "
OServer.ExecuteImmediate Command:=transql, exectype:=SQLOLEExec_Default
transql = "CREATE DATABASE Db_2 ON Device_2=100 " 
OServer.ExecuteImmediate Command:=transql, exectype:=SQLOLEExec_Default 　　6.在数据库中建表:　　在数据库Db_1上建表T_1:transql = "use Db_1 " & _
"create table T_1 " & _
"(Name char(8) null, " & _
" Age numeric(2) null, " & _
" Sex smallint null, " & _
" ID_Code char(16) not null, " & _
" constraint c_1 primary key clustered (ID_Code))"
OServer.ExecuteImmediate Command:=transql,exectype:=SQLOLEExec_Default 　　建表T_1的Name列的索引：transql="CREATE INDEX index_1 ON T_1 (Name)"
OServer.ExecuteImmediate Command:=transql,exectype:=SQLOLEExec_Default 　　在数据库Db_2上建表T_2:transql = "use Db_2 " & _
"create table T_2 " & _
"(Name char(8) null, " & _
" Age numeric(2) null, " & _
" Sex smallint null, " & _
" Department char(16) not nill, " & _
" No char(4) not null," & _
"constraint c_2 primary key clustered (Department,No))"
OServer.ExecuteImmediate Command:=transql, exectype:=SQLOLEExec_Default 　　此时，我们完成了建立数据对象的编码工作，程序被编译执行后，就会在SQL Server上自动建立数据库设备、数据库及库中的表。 　　对于数据库设备，可以用DISK REINIT，DISK REFIT，DISK RESIZE对它进行操作，如要扩展数据库设备Device_1的容量为200M，可利用如下方法：DISK RESIZE
Name='Devive_1', 
Size = 102400 　　对于SQL Server上已经建立的数据库及表的结构，也可以通过DMO与事务SQL进行修改与删除。类似于上面的编码，可以利用Alter Database Db_1,Alter DatabaseDb_2，Alter Table T_1，Alter Table T_2等事务SQL语句进行对所建立的数据库与表的的结构进行修改，而利用Drop Database, Drop Table事务语句删除所建立的数据库与表。

Answer 12

这样就可以运行啊Private Sub Form_Load()
    OServer.Connect ServerName:="Localhost", Login:="sa", Password:=""
    Dim transql As String
    transql = "use master " & _
    "DISK INIT " & _
    "Name=""Device_1""," & _
    "Physname=""D:\SQL\data\devece1.dat""," & _
    "vdevno = 10," & _
    "size=102400" & _
    "DISK INIT " & _
    "Name=""Device2""," & _
    "Physname=""D:\SQL\data\device2.dat""," & _
    "vdevno=11," & _
    "size=204800"
    Call OServer.ExecuteImmediate(Command:=transql, exectype:=SQLDMOExec_Default)
End Sub