vb.net操作dbf vbnet andalso

提示：扫一扫查出行
【扫一扫了解最新限行尾号】
复制提示

vb调用DBF文件高手进！谢谢！

以下代码打开 d:\dbf_path\dbf_file.dbf ,并将第一个记录的第一个字段的值改为"change_value"vb.net 的代码:imports system.data.odbc dim strconn as string ="Driver={Microsoft Visual FoxPro Driver};SourceType=DBF;" _ "SourceDB=d:\dbf_path;Exclusive=No"dim adp as odbcdataadapterdim tbl as datatable = new datatabledim conn as odbcconnection = new odbcconnectionconn.connectionstring = strconnconn.open()adp = new odbcdataadapter("select * from dbf_file", conn)adp.fill(tbl) tbl.rows(0).item(0) = "change value"adp.update(tbl)conn.close() ------------------------------------- vb6 的方法类似,记不太清楚,需要引用 ms dao 2.5/3.51 compatibility library 或以上,并需要安装vfp 的驱动vfpodbc.msi dim conn as adodb.connectiondim rs as adodb.recordsetdim strconn as string strconn="Provider=MSDASQL.1;Persist Security Info=False;Data Source=dbf;Initial Catalog=D:\DBF_PATH"conn.open strconnrs.open "select * from dbf_file",conn,adopendynamic,adlockoptimistic '.... you coders.closeconn.closeset rs=nothingset conn=nothing

相关问答

Q1: 我用vb.net2005编写一个系统，但是要读入别人的数据库，怎么把dbf转换access的啊？？急！急！

两个数据库连接，一个读DBF，一个写ACCESS。怎么读写这两种数据库，到网上下个例子就OK了。

Q2: vb.net数据库操作

参考一下下面这段代码就可以了。

Imports System.Data

'引入数据库操作类命名空间

Imports System.Data.OleDb

'引入ADO.NET操作命名空间

Public Class FrmModifystInfo

Inherits System.Windows.Forms.Form

Public ADOcmd As OleDbDataAdapter

Public ds As DataSet = New DataSet()

'建立DataSet对象

Public mytable As Data.DataTable

'建立表单对象

Public myrow As Data.DataRow

'建立数据行对象

Public rownumber As Integer

'定义一个整型变量来存放当前行数

Public SearchSQL As String

Public cmd As OleDbCommandBuilder

'======================================================

#Region " Windows 窗体设计器生成的代码 "

#End Region

'======================================================

Private Sub FrmModifystInfo_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load

'窗体的载入

TxtSID.Enabled = False

TxtName.Enabled = False

ComboSex.Enabled = False

TxtBornDate.Enabled = False

TxtClassno.Enabled = False

TxtRuDate.Enabled = False

TxtTel.Enabled = False

TxtAddress.Enabled = False

TxtComment.Enabled = False '设置信息为只读

Dim tablename As String = "student_Info "

SearchSQL = "select * from student_Info "

ExecuteSQL(SearchSQL, tablename) '打开数据库

ShowData() '显示记录

End Sub

Private Sub ShowData()

'在窗口中的textbox中显示数据

myrow = mytable.Rows.Item(rownumber)

TxtSID.Text = myrow.Item(0).ToString

TxtName.Text = myrow.Item(1).ToString

ComboSex.Text = myrow.Item(2).ToString

TxtBornDate.Text = Format(myrow.Item(3), "yyyy-MM-dd ")

TxtClassno.Text = myrow.Item(4).ToString

TxtTel.Text = myrow.Item(5).ToString

TxtRuDate.Text = Format(CDate(myrow.Item(6)), "yyyy-MM-dd ")

TxtAddress.Text = myrow.Item(7).ToString

TxtComment.Text = myrow.Item(8).ToString

End Sub

Private Sub BtFirst_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtFirst.Click

'指向第一条数据

rownumber = 0

ShowData()

End Sub

Private Sub BtPrev_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtPrev.Click

'指向上一条数据

BtNext.Enabled = True

rownumber = rownumber - 1

If rownumber 0 Then

rownumber = 0 '如果到达记录的首部，行号设为零

BtPrev.Enabled = False

End If

ShowData()

End Sub

Private Sub BtNext_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtNext.Click

'指向上一条数据

BtPrev.Enabled = True

rownumber = rownumber + 1

If rownumber mytable.Rows.Count - 1 Then

rownumber = mytable.Rows.Count - 1 '判断是否到达最后一条数据

BtNext.Enabled = False

End If

ShowData()

End Sub

Private Sub BtLast_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtLast.Click

'指向最后一条数据

rownumber = mytable.Rows.Count - 1

ShowData()

End Sub

Private Sub BtDelete_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtDelete.Click

mytable.Rows.Item(rownumber).Delete() '删除记录

If MsgBox( "确定要删除改记录吗？ ", MsgBoxStyle.OKCancel + vbExclamation, "警告 ") = MsgBoxResult.OK Then

cmd = New OleDbCommandBuilder(ADOcmd)

'使用自动生成的SQL语句

ADOcmd.Update(ds, "student_Info ")

BtNext.PerformClick()

End If

End Sub

Private Sub BtModify_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtModify.Click

TxtSID.Enabled = False '关键字段只读

TxtName.Enabled = True '可读写

ComboSex.Enabled = True

TxtBornDate.Enabled = True

TxtClassno.Enabled = True

TxtRuDate.Enabled = True

TxtTel.Enabled = True

TxtAddress.Enabled = True

TxtComment.Enabled = True

End Sub

Private Sub BtUpdate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtUpdate.Click

If Not Testtxt(TxtName.Text) Then

MsgBox( "请输入姓名！ ", vbOKOnly + vbExclamation, "警告 ")

TxtName.Focus()

Exit Sub

End If

If Not Testtxt(ComboSex.Text) Then

MsgBox( "请选择性别！ ", vbOKOnly + vbExclamation, "警告 ")

ComboSex.Focus()

Exit Sub

End If

If Not Testtxt(TxtClassno.Text) Then

MsgBox( "请选择班号！ ", vbOKOnly + vbExclamation, "警告 ")

TxtClassno.Focus()

Exit Sub

End If

If Not Testtxt(TxtTel.Text) Then

MsgBox( "请输入联系电话！ ", vbOKOnly + vbExclamation, "警告 ")

TxtTel.Focus()

Exit Sub

End If

If Not Testtxt(TxtAddress.Text) Then

MsgBox( "请输入家庭住址！ ", vbOKOnly + vbExclamation, "警告 ")

TxtAddress.Focus()

Exit Sub

End If

If Not IsNumeric(Trim(TxtSID.Text)) Then

MsgBox( "请输入数字学号！ ", vbOKOnly + vbExclamation, "警告 ")

Exit Sub

TxtSID.Focus()

End If

If Not IsDate(TxtBornDate.Text) Then

MsgBox( "出生时间应输入日期格式（yyyy-mm-dd）！ ", vbOKOnly + vbExclamation, "警告 ")

Exit Sub

TxtBornDate.Focus()

End If

If Not IsDate(TxtRuDate.Text) Then

MsgBox( "入校时间应输入日期格式（yyyy-mm-dd）！ ", vbOKOnly + vbExclamation, "警告 ")

TxtRuDate.Focus()

Exit Sub

End If

myrow.Item(0) = Trim(TxtSID.Text)

myrow.Item(1) = Trim(TxtName.Text)

myrow.Item(2) = Trim(ComboSex.Text)

myrow.Item(3) = Trim(TxtBornDate.Text)

myrow.Item(4) = Trim(TxtClassno.Text)

myrow.Item(5) = Trim(TxtTel.Text)

myrow.Item(6) = Trim(TxtRuDate.Text)

myrow.Item(7) = Trim(TxtAddress.Text)

myrow.Item(8) = Trim(TxtComment.Text)

mytable.GetChanges()

cmd = New OleDbCommandBuilder(ADOcmd)

'使用自动生成的SQL语句

ADOcmd.Update(ds, "student_Info ")

'对数据库进行更新

MsgBox( "修改学籍信息成功！ ", vbOKOnly + vbExclamation, "警告 ")

TxtName.Enabled = False

ComboSex.Enabled = False

TxtBornDate.Enabled = False

TxtClassno.Enabled = False

TxtRuDate.Enabled = False

TxtTel.Enabled = False

TxtAddress.Enabled = False

TxtComment.Enabled = False '重新设置信息为只读

End Sub

Private Sub BtCancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtCancel.Click

TxtSID.Enabled = False

TxtName.Enabled = False

ComboSex.Enabled = False

TxtBornDate.Enabled = False

TxtClassno.Enabled = False

TxtRuDate.Enabled = False

TxtTel.Enabled = False

TxtAddress.Enabled = False

TxtComment.Enabled = False

End Sub

Public Function ExecuteSQL(ByVal SQL As String, ByVal table As String)

Try

'建立ADODataSetCommand对象

'数据库查询函数

ADOcmd = New OleDbDataAdapter(SQL, "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\student.mdb ")

'建立ADODataSetCommand对象

ADOcmd.Fill(ds, table) '取得表单

mytable = ds.Tables.Item(0) '取得名为table的表

rownumber = 0 '设置为第一行

myrow = mytable.Rows.Item(rownumber)

'取得第一行数据

Catch

MsgBox(Err.Description)

End Try

End Function

End Class

Q3: vb.net 中如何使用VF的.dbf数据库？？？

使用ADO~~先利用数据控件oleconnection连接到数据库,即在oledbconnection的Connectstring属性输入路径,

然后使用oledbcommand并在commandtext中选择查询,再使

用oledbdataadapter选择配置数据适配器,生成dataset

注:

1 oledbcommand 主要使用SQL命令

2 oledbdataadapter相当于在本地建一个表,有什么操作可以操作完后将结果传回源表

Q4: vb.net把DBF数据库导出Excel以及数据库连接

"provider=msdasql;DRIVER=Microsoft Visual FoxPro Driver;UID=;Deleted=yes;Null=no;Collate=Machine;BackgroundFetch=no;Exclusive=No;SourceType=DBF;SourceDB=" CurDir(FilePath)

说明vb.net操作dbf：CurDir(FilePath)表示DBF文件所在vb.net操作dbf的目录,如文件路径为vb.net操作dbf：F:\编程模板\ckrjz.dbf,CurDir(FilePath)返回F:\编程模板,但在查询是DBF文件要去文件名后缀vb.net操作dbf，如ckrjz.dbf在sql查询时vb.net操作dbf，要把".DBF"去掉.如:

select * from [ckrjz]

Q5: vb.net 怎么操作数据库

如果楼主熟悉VB6vb.net操作dbf，可以直接在项目中添加ADODB的Com引用，这样你就可以像VB6那样操作数据库了！

另外

.NET

Framework中连接数据库要用到ADO.NET。如果要操作Access数据库，要用到System.Data.OleDb命名空间下的许多类。

比如按楼主所说，“vb.net操作dbf我想在textbox1中显示表一中【一些数据】字段下的第一个内容”vb.net操作dbf：

'首先导入命名空间

Imports

System.Data

Imports

System.Data.OleDb

'然后在某一个事件处理程序中写vb.net操作dbf：

Dim

conn

New

OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data

Source=数据库.accdb;Jet

OLEDB:Database

Password=MyDbPassword")

Dim

command

New

OleDbCommand("Select

From

数据表",

conn)

conn.Open()

'打开数据库连接

Dim

reader

OleDbDataReader

command.ExecuteReader()

'执行SQL语句，返回OleDbDataReader

对象

While

reader.Read()

'读取一条数据

textbox1.Text

reader("一些数据")

VbCrLf

Loop

reader.Close()

'关闭OleDbDataReader

conn.Close()

'关闭连接

vb.net操作dbf的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于vbnet andalso、vb.net操作dbf的信息别忘了在本站进行查找喔。

正文

vb调用DBF文件高手进！谢谢！

相关问答

相关阅读

php存json到mysql数据库，php数据保存在txt

vb会员登陆sqlserver，vb连接sql数据库实例

如何修改mysql的数据库名称，MySQL 修改数据

redis如何数据不丢失数据恢复，redis 写数据到数据库

sqlserver添加回收站，SQL Server还原数据库

php7.1数据库配置，PHP教程数据库和MySQL

jscookie存json数据库，js json格式数据库

sqlserver2014，SQLserver2014数据库做定期备份

目录[+]

vb调用DBF文件高手进！谢谢！

相关问答

相关阅读

php存json到mysql数据库，php数据保存在txt

vb会员登陆sqlserver，vb连接sql数据库实例

如何修改mysql的数据库名称，MySQL 修改数据

redis如何数据不丢失数据恢复，redis 写数据到数据库

sqlserver添加回收站，SQL Server还原数据库

php7.1数据库配置，PHP教程 数据库和MySQL

jscookie存json数据库，js json格式数据库

sqlserver2014，SQLserver2014数据库做定期备份

目录[+]

php7.1数据库配置，PHP教程数据库和MySQL