一问50分，再现等待！

Question

1。如何打开一个有登陆密码的程序，并从这个程序中取出一个text中的值？
2。我想把报表的内容存到数据库中，数据库中的表字段为text类型，怎么样存？怎么样取？(SQL Server2000数据库)

Answer 1

建立连接字符串
放在模块里面
 Option ExplicitPublic Function ConnectToDatabase()
    ConnectToDatabase = False
    
    Set gConnection = New ADODB.Connection
    On Error GoTo ErrHandler
    With gConnection
        .ConnectionTimeout = 3
        .CursorLocation = adUseClient
        .ConnectionString = "这里是连接字符串，里面有放密码的地方"
    End With
    gConnection.Open
    
    ConnectToDatabase = True
    Exit Function
ErrHandler:
    MsgBox "连接数据库失败：" + Err.Description
    Exit Function
End Function然后程序调用连接查询例子：
Dim rs As New ADODB.Recordset
    rs.Open "select * from employee_data where employee_code like ('%'+'" & ID & "' + '%') and department like ('%'+'" & depart & "' + '%')", ADO_Cnn, adOpenKeyset, adLockOptimistic
    If rs.EOF Then
        MsgBox "没有符合检索条件的信息！", vbOKOnly + vbInformation + vbMsgBoxSetForeground, "信息提示窗口"
    end if
    text1.text=rs.Fields("你的字段名")
    rs.close保存例子
Dim rs As New ADODB.Recordset
   rs.Open "select * from employee_data where employee_code='" & ID & "'", ADO_Cnn, adOpenKeyset, adLockOptimistic    '增加新的数据
    rs.AddNew    rs.Fields("Notes") = rtxtNotes.Text
    rs.UPdate
    rs.Close

Answer 2

1.我想问的是在VB中如何打开一个有登陆密码的exe文件？
2。我的报表里有表格，中文，边框颜色等等信息，要存到数据库中的一个字段里面，怎么存啊？使用二进制存，还是用什么其他的？还有用你的方法存，我又怎么读取到我的报表里？

Answer 3

shell("*.exe",VbNormalFocus)为不同信息建立相应字段