此段代码是连接SQL SERVER的 代码内connMMSQL的参数要根据实际情况传入
Function connMMSQL(ip,user,pwd,database,strsql)
Dim conn,Re,arr(2)
set conn = CreateObject("ADODB.Connection")
conn.ConnectionString="Provider=SQLOLEDB.1;Password="+pwd+";Persist Security Info=True;User ID="+user+";Initial Catalog="+database+";Data source="+ip
conn.Open
If conn.state=0 Then
arr(0) = -1
connMMSQL = arr
ElseIf conn.state=1 Then
set Re = conn.execute(strSql)
If Re.EOF = False Then
arr(0) = 1
arr(1) = Re.GetRows
connMMSQL = arr
ElseIf Re.EOF = True Then
arr(0) = 0
connMMSQL = arr
End If
End If
conn.close
Set conn = Nothing
End Function
下面是文件操作代码
'判断文件是否存在
Function IsExist(file)
Dim a,b
Set a = CreateObject("Scripting.FileSystemObject")
b = a.FileExists(file)
If b = True Then
IsExist = 1
ElseIf b = False Then
IsExist = -1
Else
IsExist = 0
End If
Set b = Nothing
Set a = Nothing
End Function '读取文件内容
Function ReadContent(file)
If IsExist(file)= 1 Then
Dim a,b,c
Set a = CreateObject("Scripting.FileSystemObject")
Set b = a.OpenTextFile(file,1,False)
c = ""
Do While Not b.AtEndOfLine
c = c+b.ReadLine+vbcrlf
Loop
ReadLine = c
b.Close
Set b = Nothing
Set a = Nothing
ElseIf IsExist(file)=-1 Then
ReadLine = -1
ElseIf IsExist(file)=0 Then
ReadLine = 0
End If
End Function
'文件写入内容
Function WriteContent(file,content)
Dim a,b,c,Msg
Set a = CreateObject("Scripting.FileSystemObject")
If IsExist(file)=1 Then
Msg = MsgBox("是:即删除原文件并新建文件"&vbCrLf&"否:即在该文本未尾追加内容"&vbCrLf&"取消:即自行更改名字再执行",vbYesNoCancel,"系统提示:该文件存在")
If Msg=6 Then
Set b = a.OpenTextFile(file,2,False)
b.Write content
b.Close
Set b = Nothing
WriteContent = 3
ElseIf Msg=7 Then
Set b = a.OpenTextFile(file,8,False)
b.Write content
b.Close
Set b = Nothing
WriteContent = 2
ElseIf Msg=2 Then
WriteContent = 0
End If
ElseIf IsExist(file)=-1 Then
Set b = a.OpenTextFile(file,2,True)
b.Write content
b.Close
Set b = Nothing
Set a = Nothing
WriteContent = 1
ElseIf IsExist(file)=0 Then
WriteContent = -1
End If
Set a = Nothing
End Function
'MsgBox WriteContent("e:/test.txt","这是个测试程序")