OledbDataAdapter的使用疑问

[lyfer]

InsertCommand.Parameters.Add的值长度,和类型不知道能不能做成自适应的

[Jinglecat]

可以，你全部定义成 object， 不指定长度

但是不推荐！！！

有些类型，.net 可能无法正确推导出来，

且无法验证目标数据的类型是否正确

[dongwei2345]

不解楼主之意

[lyfer]

我写了这么一段代码,用来添加记录的
Public Function Add(ByVal Table As String, ByVal Fields As ArrayList, ByVal Values As ArrayList) As Boolean
Try
If (Fields.Count = Values.Count) Then
Dim Fields_ As String, Values_ As String, Par_ As String, i_ As Integer
Fields_ = ""
Values_ = ""
Par_ = ""
For i_ = 0 To Fields.Count - 1
Fields_ = Fields_ & Fields(i_).ToString & ","
Par_ = Par_ & "@" & Fields(i_).ToString & ","
Next

Fields_ = Fields_.Substring(0, Fields_.Length - 1)
Par_ = Par_.Substring(0, Par_.Length - 1)

Dim Adapter As New OleDbDataAdapter("insert into " & Table & "(" & Par_ & ") values(" & Par_ & ")", myConnection)

For i_ = 0 To Values.Count - 1
Adapter.InsertCommand.Parameters.Add("@" & Fields(i_).ToString, OleDbType.IDispatch, Values(i_).length, Fields(i_).ToString)
Next


''Adapter.InsertCommand.Parameters.Add()
Else
Page.Response.Write("<font style=color:red>Add函数参数传递不正确,参数长度不一至</font><br><font style=color:red;font-weight:bold>表:</font>" & Table & "<br><font style=color:red;font-weight:bold>字段集长度:</font>" & Fields.Count & "<br><font style=color:red;font-weight:bold>值长度:</font>" & Values.Count & "<font style=color:red;font-weight:bold>参数名称长度:</font>" & Par.Count & "<br>")
Page.Response.End()
Return False
End If
Catch ex As Exception
Return True
End Try
End Function
可否指点一下,第一次写ASP.NET

[Jinglecat]

做虾米哦？

[Jinglecat]

搞不懂用的什么数据库， 还用 ODBC ？

且不熟悉 VB

更不知 LZ 要我来干什么

[lyfer]

能不能发一段C#写的给我看一下,第一次用.NET,见笑了