我用vb.net2005编写一个系统，但是要读入别人的数据库，怎么把dbf转换access的啊？？急！急！
\u600e\u4e48\u7528VB\u6765\u5bf9ACCESS\u6570\u636e\u5e93\u8bfb\u5199Data1.DataBaseName=\u6570\u636e\u5e93\u8def\u5f84
Data1.RecordSouce=\u8981\u64cd\u4f5c\u7684\u8868\u540d
Data1.Refresh'\u6253\u5f00\u6570\u636e\u5e93
Data1.Recordset.AddNew\u2018\u6dfb\u52a0\u8bb0\u5f55
Data1.Recordset.Fields(0).Value = s1\u2018\u8bbe\u7f6e\u503c
Data1.Recordset.Update\u2019\u4fdd\u5b58
Data1.Recordset.Close\u2018\u5173\u95ed\u6570\u636e\u5e93
\u4f60\u4e00\u4e2a\u793a\u4f8b,\u8fd9\u4e2a\u662f\u7528\u6237\u767b\u5f55\u7cfb\u7edf
'\u51c6\u5907\u5de5\u4f5c: \u6570\u636e\u5e93 D:\Mydb.mdb \u6570\u636e\u5e93\u4e2d,\u5efa\u6570\u636e\u8868:UserInfo,\u6570\u636e\u8868\u4e2d,\u5efa\u5b57\u6bb5:User,Password,\u5e76\u6dfb\u52a0\u4e00\u6761\u8bb0\u5f55
'\u70b9\u5de5\u7a0b->\u5f15\u7528 \u9009\u4e2d Microsoft Activex Data Objects 2.1 Library
'\u63a7\u4ef6:\u6dfb\u52a0\u4e00\u4e2a\u6587\u672c\u6846,\u4e00\u4e2a\u547d\u4ee4\u6309\u94ae
Private Sub Command1_Click()
Dim s As String
Dim Conn As New ADODB.Connection
Dim Rs As New ADODB.Recordset
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\mydb.mdb"
'\u8bf7\u5c06\u6570\u636e\u5e93\u540d\u53ca\u8def\u5f84\u6362\u6210\u4f60\u7684\u5b9e\u9645\u6570\u636e\u5e93\u540d\u53ca\u8def\u5f84
Dim UserName As String
Dim Password As String
s = Text1.Text
If s = "1" Or s = "2" Then
UserName = InputBox("\u8bf7\u8f93\u5165\u7528\u6237\u540d")
Password = InputBox("\u8bf7\u8f93\u5165\u7528\u6237\u5bc6\u7801")
sql = "Select * From [UserInfo] where User='" & UserName & "'"
'UserInfo\u8bf7\u6362\u6210\u4f60\u7684\u5b9e\u9645\u6570\u636e\u8868\u540d
Rs.Open sql, Conn, 1, 3
If Rs.EOF Then
MsgBox "\u6ca1\u6709\u627e\u5230\u6b64\u7528\u6237"
Else
If Rs("Password") = Password Then
If s = "1" Then
MsgBox "123"
ElseIf s = "2" Then
MsgBox "456"
End If
Else
MsgBox "\u5bc6\u7801\u9519\u8bef"
End If
End If
End If
End Sub
\u4e0a\u9762\u7684\u4f8b\u5b50\u5b9e\u73b0\u4e86\u67e5\u8be2
\u5982\u679c\u662f\u8981\u6dfb\u52a0,\u5220\u9664,\u66f4\u65b0\u7b49\u64cd\u4f5c,\u53ea\u8981\u7f16\u5199\u76f8\u5e94\u7684SQL\u8bed\u53e5,\u518d\u7528
Conn.Execute SQL \u5c31\u53ef\u4ee5\u4e86,\u5982:
\u6dfb\u52a0\u7684:
SQL="Insert Into [UserInfo](User,Password) Values('aaaa','1234')"
Conn.Execute SQL '\u6267\u884c\u540e,\u5c31\u6dfb\u52a0\u4e86\u4e00\u6761\u8bb0\u5f55
\u5220\u9664:
SQL="Delete From [UserInfo] Where User='aaaa'"
Conn.Execute SQL '\u5220\u9664\u7528\u6237\u540d\u4e3aaaaa\u7684\u7528\u6237\u8bb0\u5f55
\u66f4\u65b0:
SQL="Update [UserInfo] Set Password='abcdefg' Where User='aaaa'"
Conn.Execute SQL '\u6267\u884c\u540e,\u4fee\u6539\u7528\u6237aaaa\u7684\u5bc6\u7801\u4e3aabcdefg
\u4ee5\u4e0a\u53ea\u662f\u793a\u4f8b,\u5728\u5b9e\u9645\u4f7f\u7528\u8fc7\u7a0b\u4e2d,\u53ef\u4ee5\u5c06\u4e00\u4e9b\u5185\u5bb9\u7528\u63a7\u4ef6\u8f93\u5165\u7b49\u65b9\u5f0f\u8fdb\u884c,\u8fd9\u6837\u5c31\u6709\u5f88\u5927\u7684\u7075\u6d3b\u6027\u4e86
\u52a8\u6001\u521b\u5efa\u6570\u636e\u5e93
\u5f15\u7528 microsoft DAP 3.6 Object Library
Dim myDB As DAO.Database
Set myDB = CreateDatabase(App.Path + "\111.mdb", dbLangGeneral) '\u5982\u679c\u4e0d\u5b58\u5728\u6570\u636e\u5e93
Set myDB = OpenDatabase(App.Path + "\111.mdb") '\u5982\u679c\u5b58\u5728\u6570\u636e\u5e93
Dim str_SQL As String
str_SQL = "Create Table NewTable1(Field1 Text(10),Field2 Short)"
myDB.Execute str_SQL
str_SQL = "Create Table NewTable2(Field1 Text(10),Field2 Short)"
myDB.Execute str_SQL
myDB.Close
\u5411\u5df2\u7ecf\u5efa\u597d\u7684\u6570\u636e\u5e93\u4e2d\u6dfb\u52a0\u8bb0\u5f55
\u5efa\u7acb\u6570\u636e\u5e93a\uff0c\u8868\u540d\u5b57b,\u5b57\u6bb5c\uff0c\u6587\u672c\u683c\u5f0f,\u5728\u7a97\u4f53\u4e0a\u753b\u4e00command ,\u753b\u4e00\u4e2a\u6587\u672c\u6846\uff0c\u8fd9\u4e2a\u4ee3\u7801\u5c31\u662f\u5c06\u6587\u672c\u5185\u5bb9\u5199\u5165\u6570\u636e\u5e93
\u8981\u5148\u5f15\u7528microsoft activeX data object 2.5 library
\u4ee3\u7801\u5982\u4e0b\uff1a
Private Sub Command1_Click()
Dim cnDk As New ADODB.Connection
Dim strDk As String
Dim rDk As New ADODB.Recordset
Dim sql As String
strDk = "DBQ=" & App.Path & "\a.mdb;Driver=;"
cnDk.Open strDk
sql = "insert into b (c) values ('" & text1.text& "')"
cnDk.Execute sql
cnDk.Close
Set cnDk = Nothing
End Sub
\u5728\u6570\u636e\u5e93\u4e2d\u6dfb\u52a0\u591a\u6761\u8bb0\u5f55
\u53ea\u8981\u53ef\u4ee5\u8fdb\u884c\u8f93\u5165\u6587\u672c\u7684\u90fd\u53ef\u4ee5
\u6539\u4e00\u4e0b\u8fd9\u4e9b\u5427\uff0c\u4f60\u5355\u51fb\u4e00\u6b21\u5c31\u63d0\u793a\u8f93\u5165\u4e00\u6b21\uff0c\u8f93\u5b8c\u4e86\u81ea\u52a8\u4fdd\u5b58
\u6539\u540e
Data1.Recordset.AddNew
Data1.Recordset.Fields("username") = trim(inputbox("\u8bf7\u8f93\u5165\u540d\u5b57"))
Data1.Recordset("password") =val(trim(inputbox("\u8bf7\u8f93\u5165\u7535\u8bdd")))
Data1.UpdateRecord
\u2014\u2014\u2014\u2014\u2014\u2014\u2014\u2014\u2014\u2014\u2014\u2014\u2014\u2014\u2014\u2014\u2014\u2014\u2014\u2014\u2014\u2014\u2014\u2014\u2014\u2014\u2014\u2014\u2014\u2014
Data1.Recordset.AddNew
Data1.Recordset.Fields("username") = "\u5f20\u4e09|"
Data1.Recordset("password") = "fsdfsd"
Data1.UpdateRecord
Data1.Recordset.AddNew
Data1.Recordset.Fields("username") = "\u674e\u56db|"
Data1.Recordset("password") = "fsdf432d"
Data1.UpdateRecord
Data1.Recordset.AddNew
Data1.Recordset.Fields("username") = "\u738b\u4e94|"
Data1.Recordset("password") = "f42342d"
Data1.UpdateRecord
MsgBox "adad"
========================================================================================
vb+access \u6570\u636e\u5e93\u7684\u8bb0\u5f55\u7684\u6dfb\u52a0\u4e0e\u5220\u9664
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Private Sub Command2_Click()
Set rs = cn.Execute("select * from wenzhang where \u5185\u5bb9='" & Text1.Text & "'")
If Text1.Text = "" Then
MsgBox ("\u6587\u7ae0\u4e0d\u80fd\u4e3a\u7a7a\uff01")
ElseIf rs.EOF = False Then
MsgBox ("\u6587\u7ae0\u4e0d\u80fd\u91cd\u590d\uff01")
Else
cn.Execute ("insert into wenzhang values('" & Combo1.Text & "','" & Text3.Text & "','" & Text4.Text & "','" &
Text1.Text & "')")
MsgBox ("ok")
End If
End Sub
'\u6dfb\u52a0\u6309\u94ae
Private Sub Command3_Click()
Dim myval As String
Set rs = cn.Execute("select * from wenzhang where \u5185\u5bb9='" & Text1.Text & "'")
If rs.EOF Then
myval = MsgBox("\u662f\u5426\u4fdd\u5b58\u6587\u7ae0\uff1f", vbInformation + vbYesNoCancel, "\u63d0\u793a")
If myval = vbYes Then
cn.Execute ("insert into wenzhang values('" & Combo1.Text & "','" & Text3.Text & "','" & Text4.Text & "','" &
Text1.Text & "')")
MsgBox ("\u4fdd\u5b58\u6210\u529f")
Else
Combo1.Text = ""
End If
Else
Text1.Text = ""
Combo1.Text = ""
End If
End Sub
'\u5220\u9664\u6309\u94ae
Private Sub Command4_Click()
If Text1.Text = "" Then
MsgBox ("\u4e0d\u80fd\u5220\u9664\u7a7a\u8bb0\u5f55\uff01")
Else
Dim myval As String
myval = MsgBox("\u662f\u5426\u5220\u9664\u6587\u7ae0\uff1f", vbInformation + vbYesNo, "\u63d0\u793a")
If myval = vbYes Then
Set rs = cn.Execute("delete from wenzhang where \u5185\u5bb9 ='" & Text1.Text & "'")
MsgBox ("\u5220\u9664\u6210\u529f\uff01")
End If
End If
End Sub
'\u8fde\u63a5\u6570\u636e\u5e93
Private Sub Form_Load()
cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\vb.net\temp.mdb;Persist Security Info=False"
cn.CursorLocation = adUseClient
cn.Open
End Sub
你先把dbf的数据库导到sql server里 然后再导成mdb的就可以了
绛旓細鏂扮紪VB.NET 2005绋嬪簭璁捐鐩綍姒傝:鍏ラ棬绡 绗0绔 绮捐嫳鎴愰暱涔嬭矾 0.1 VB.NET - 绋嬪簭璁捐鐨勫熀纭0.2 鏈功绠浠 - 涓篤B.NET鏂版墜閲忚韩鎵撻0.3 閫夋嫨Visual Studio 2005 - 涓撲笟寮鍙戠幆澧0.4 闃呰鏈功绛栫暐 - 鍒嗛樁娈靛涔犵1绔 寤虹珛VB.NET闆嗘垚寮鍙戠幆澧 1.1 Microsoft.NET妗嗘灦浠嬬粛1.2 Visual Studio 2005...
绛旓細鐢╳indows api鍚 WriteFile()鍑芥暟璇︽儏鏌ヤ竴涓媘sdn 缁欎釜渚嬪瓙:Const MOVEFILE_REPLACE_EXISTING = &H1 Const FILE_ATTRIBUTE_TEMPORARY = &H100 Const FILE_BEGIN = 0 Const FILE_SHARE_READ = &H1 Const FILE_SHARE_WRITE = &H2 Const CREATE_NEW = 1 Const OPEN_EXISTING = 3 Const GENERIC_...
绛旓細浠ヤ笅鏄竴鏈VB.NET 2005绋嬪簭璁捐鏁欑▼鐨勮缁嗙洰褰曪紝娑电洊浜嗕赴瀵岀殑瀛︿範鍐呭:绗1绔犱粙缁嶄簡VB.NET鐨勫熀纭姒傚康锛岃璇昏呭杩欎釜缂栫▼鐜鏈変竴涓叏闈㈢殑浜嗚В銆傜3绔犳繁鍏ユ祬鍑哄湴璁茶В浜哣B.NET璇█鍩虹锛屽寘鎷娉曘佹暟鎹被鍨嬪拰鍩烘湰鎿嶄綔锛屼负鍚庣画瀛︿範鎵撲笅鍧氬疄鐨勫熀纭銆傜4绔犱笓闂ㄦ帰璁ㄤ簡鏁扮粍鍜岄泦鍚堢殑浣跨敤锛屽府鍔╄鑰呯悊瑙ｅ浣曠粍缁囧拰...
绛旓細鎴戠粰浣犱竴涓疄渚嬶紝浣犺嚜宸变慨鏀癸紱涓锛岃繍琛岀晫闈細浜岋紝瀹屾暣浠ｇ爜锛欼mports System.IO Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click '鍐鏂囦欢 Dim Myw As New FileStream(Application.StartupPath & "\瀹為獙鏂囦欢.txt",...
绛旓細瑕佹湁婕備寒鐨勫浘鏍囦綘鍙互鍦ㄢ滆В鍐虫柟妗堣祫婧愮鐞嗗櫒锛>My project锛>绋嬪簭鍥炬爣鈥濊缃綖鑰屼竴鑸VB2005缂栧啓鐨勭▼搴忛渶瑕.NET妗嗘灦鐨勬敮鎸侊紝瑕佽繍琛.NET绋嬪簭灏卞繀椤诲湪鐢佃剳涓畨瑁.NET銆傝岀洰鍓峎indows Vista浠ヤ笅鐨勬搷浣滅郴缁熼兘涓嶈嚜甯.NET锛屾墍浠S2005缂栧啓鐨勭▼搴忓湪Windows Vista浠ヤ笅鐨勬搷浣滅郴缁熻繍琛屽墠锛屽嚑涔庡繀椤昏瀹夎锛岄櫎闈為偅鍙扮數鑴...
绛旓細鏈暀绋嬩负澶у浠嬬粛濡備綍寰楀埌璋冪敤褰撳墠杩囩▼鐨勬柟娉曞悕绉板拰绫诲悕绉般傛湰鏂囪杩(VB 2008, VB 2005) 濡備綍寰楀埌璋冪敤褰撳墠杩囩▼鐨勬柟娉曞悕绉(Calling method)鍜岀被(Calling Class) 鐨勫悕绉般備富瑕佺敤鍒 System.Diagnostics.StackTrace 鍜 System.Diagnostics.StackFrame锛屼互鍙 StackFrame鐨勬柟娉曪細GetFileName锛孏etFileLineNumber锛孏et...
绛旓細鍦ㄥ悜瀵间腑 鏂版煡璇㈠悕绉鍐FillByName锛宻ql鍛戒护涓啓 select [name],phone from [number] where [name]=@name 浼氳嚜鍔ㄤ骇鐢熶竴涓伐鍏锋爮鏂囨湰妗嗭紝鍏舵爣绛句负name 鍦ㄨ皟鐢ㄦ煡璇㈡椂锛氬亣璁炬暟鎹泦鍙玹estDataSet numberTableAdapter.FillByName(testDataSet.number, nameToolStripTextBox.Text)濡傛灉浣犱竴瀹氳鐢╰extBox1锛屽垹闄...
绛旓細鎹垜鎵鐭B6鑷冲皯鏈変袱绉嶆柟娉曞彲浠鍐鏈夊嚱鏁拌繑鍥炵殑DLL http://hi.baidu.com/lyglay/blog/item/7843fcfb2b143160024f562f.html 鐪嬩笅杩欓噷锛屾槸涓绉嶅彉閫氱殑鏂规硶锛屼笉闇瑕佸VB鍋氭墜鏈氨鍙互锛屽彟涓绉嶆洿褰诲簳锛岃璇ラ〉鏈涓嬫柟锛屾湁涓涓猇B_DLL_Link鐨勯摼鎺ワ紝涓嬭浇瀹冭瘯璇曞惂 ...
绛旓細'10涓猼ext1锛1涓懡浠ゆ寜閽 Private Sub Command1_Click()Dim I As Integer Dim J As Long '鎬诲叡鐢熸垚闅忔満鏁扮殑娆℃暟 Dim K As Integer '鐢熸垚搴т綅 Dim s(12) As Integer '搴т綅涓搴旂殑浜 For I = 1 To 10 '鎸変汉閫夊骇浣 Do J = J + 1 Randomize K = Int(Rnd * 12 + 1)Loop While (...
绛旓細鍙互锛屽叾瀹炰綘鎶鐢╲b鍐欐垚鐨刢lass缂栬瘧鎴恉ll,鍦╟#閲岀洿鎺ュ紩鐢ㄥ氨鍙互銆倂b鍜孋#鐨勫簳灞傛槸涓鏍风殑锛岄兘鏄.netframework
