一个vb+oracle的问题，急！！！在线等！！！利马结贴！！！！

Question

我今天照一本书进行实例练习，用的是data1控件绑定oracle数据库,具体设置如下：
connect:       odbc;database=oradb;uid=north;pwd=north;dsn=north
recordsource:  north.employee_info   data1控件设置中没有出现任何问题，但是我在设置textbox控件和data1控件建联系的时候出现了一个问题，在将textbox的datasource属性设为data1的时候，总是显示：这个数据源不支持dataformat属性！我的textbox的dataformat属性是通用，怎么会不支持呢？？
    请高手赐教！！在线等！！！

Answer 1

你换adodc控件吧。data，我倒。

Answer 2

呵呵，用adodc过去了，可是为什么data过不去呢，书上就能过去。

Answer 3

建议换用ADO访问数据库!代码如下:Option Explicit'工程->引用->Microsoft ActiveX Data Objects 2.0 Library (后面为版本号)
Dim rs As New ADODB.Recordset'在MSHFLEXGRID表格控件中显示查询到的内容
Private Sub Command1_Click()
    If rs.State = adStateOpen Then rs.Close
    rs.Open "SELECT * FROM USERPASSWORD", cn, adOpenDynamic, adLockOptimistic
    Set MSHFlexGrid1.DataSource = rs
End Sub'向数据库中添加数据
Private Sub Command2_Click()
    If rs.State = adStateOpen Then rs.Close
    rs.Open "SELECT * FROM USERPASSWORD", cn, adOpenDynamic, adLockOptimistic
    rs.AddNew
    rs!UID = txtUid.Text
    rs!PWD = txtPwd.Text
    rs!TRUENAME = txtName.Text
    rs!CREATEDATE = Format(Now, "YYYY/MM/DD")
    rs.Update
    
    Command1.Value = True
End Sub'从数据库中删除数据
Private Sub Command3_Click()
    cn.Execute "DELETE FROM USERPASSWORD WHERE UID = '" & txtUid.Text & "'"
    Command1.Value = True
End SubPrivate Sub Form_Load()
    cn.ConnectionString = ""
    cn.Open
    '查询字符串可以上这里查
    'http://www.connectionstrings.com/
End SubPrivate Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
On Error Resume Next
    rs.Close
    Set rs = Nothing
    cn.Close
    Set cn = Nothing
End SubPrivate Sub MSHFlexGrid1_RowColChange()
    With MSHFlexGrid1
        MsgBox .TextMatrix(.Row, .Col)
    End With
End Sub