请大家帮忙，如何用VB在程序中判断本机是否登录局域网？如已登录，取登录用户名及局域网服务器名？一定给分，信誉第一。

Question

你直接在本机上判断是否能够登录sqlserver7.0不就行了，本机的用户名可以用API函数得到。如果这你有问题的吗？可以看看我网站的论坛上收搜sql
http://sanjianxia.myrice.com
我在论坛里贴了关于这方面的文章。

Answer 1

to sanjianxia(三剑侠) 
我去了，可找不到，您能帮忙给一个确定的URL嘛？
其它问题有人回答嘛？？

Answer 2

你使用API函数GetUserName，如果没有登陆，则返回空值。
Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Private Sub Form_Load()
MsgBox onnet
End Sub
Function onnet() As Boolean
Dim i As Long
Dim user As String
user = String(255, 0)
i = GetUserName(user, 256)
user = Trim(user)
If user <> "" Then
onnet = True
Else
onnet = False
End If
End Function

Answer 3

这个函数会更标准：
Private Declare Function WNetGetUser Lib "mpr.dll" Alias "WNetGetUserA" (ByVal lpName As String, ByVal lpUserName As String, lpnLength As Long) As LongPrivate Sub Form_Load()
Dim us As String * 255
WNetGetUser "", us, 255
MsgBox us
End Sub

Answer 4

softrain(秋雨) :
您真是太好了，本来我就想找您帮助呢，谢谢您的回答。还有一个问题，（我不是太贪心，实在这一个问题是连在一起的）
请教代码（就是您原来回答别人的贴子）：
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
If Not rs.Eof  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
sql = "Provider=SQLOLEDB.1;User ID=sa;Initial Catalog=" & Databasename & ";Data Source= " & Servername
Con.Open sql
'databasename 和 servername分别是创建的数据库名称和服务器名称,你可以给用户填写，也可以在代码中指定.*************这里的d:\mydb.mdf与d:\mydb.ldf文件是如何生成的，与通过在SQL SERVER中backup DATABASE备份的文件有何不同。
谢谢，请一定关照！！！！

Answer 5

看到你自己给自己UP，哎，帮帮你吧，UP!

Answer 6

谢谢 ql_mf(ql_mf) ：好人有好报

Answer 7

mdf 和 ldf 文件会不会是sql server 的数据库文件与日志文件啊。
帮你UP

Answer 8

limit(梦锦) 、lonelystarcn(虫虫) ：
谢谢！请问凭这两个文件能创建出新建库中的各表及表中数据？

Answer 9

.mdf与.ldf文件是如何得到的，有没有在创建数据库后直接通过restore database创建各数据表及表中数据？

Answer 10

.mdf与.ldf文件是SQL SERVER系统自动生成的，默认路径在SQL SERVER的安装路径。你可以提供完整路径，系统就会在指定路径创建一个空的数据库文件和日志文件。
恢复数据库应该是可以的，我没有试过。只要是标准的SQL语句，都可以用VB传递给数据库。