兄弟们啊，给我一份vb连接sql数据库实现的增删改查程序呗。别的数据库的也可以 但是要vb的，谢啦

Posted 2023-04-03

说错了 是vbscript的 asp的 连着sql server 2005的

参考技术A VB使用ADO数据库可以分为有源数据库和无源数据库，即是否使用了DSN数据源，如下例：
1、在连接数据库前首先要在VB菜单中“工程”-“引用”从中选择 microsoft activeX Data objects 2.6 library和 microsoft activeX Data objects recordset 2.6两个组件，这是在连接数据前所必做的工作。
2、接下来定义ADO的连接对象，如下所示：
Set conn = New ADODB.Connection
Set rs = New ADODB.Recordset
第一种方法采用的是无源的数据库连接方法
conn.ConnectionString = "Driver=sql server;server=JSZX3-11;uid=sa;pwd=;database=wzc"
conn.ConnectionTimeout = 30
conn.Open
rs.Open "select 用户名,密码 from login where 用户名='" & Trim(Combo1.Text) & "' And 密码='" & Trim(Text1.Text) & "'", conn, adOpenStatic, adLockReadOnly, adCmdText
If rs.EOF = True And rs.BOF Then
m = MsgBox("请重新登录", vbExclamation)
Text1.Text = ""
Text1.SetFocus
Else
Form1.Hide
End If
rs.Close
这是第二种方法连接数据库的方法，这一种方法是采用有源的方法与数据库连接的方法，代码如下所示：
Set conn = New ADODB.Connection
Set rs = New ADODB.Recordset
conn.ConnectionString = "DSN=login;uid=sa;pwd=;"
conn.ConnectionTimeout = 30
conn.Open
rs.Open "select 用户名 from login", conn, adOpenStatic, adLockReadOnly, adCmdText
Dim i As String
For t = 0 To Val(rs.RecordCount) - 1
i = Trim(rs.Fields("用户名").Value)
rs.MoveNext
Combo1.AddItem i
Next t
rs.Close

增删查改的语句按照自己的需要填进去~ 参考技术B oracle的

Public Const oracle_SID As String = "orcl"
Public Const oracle_User As String = "TEST1"
Public Const oracle_Passwd As String = "TEST1"
Public myRs As Object

Private Function initConnect()
Set ORA_SE = CreateObject("OracleInProcServer.XOraSession")
Set ORA_DB = ORA_SE.DbOpenDatabase(oracle_SID, oracle_User & "/" & oracle_Passwd, 0&)
End Function

Private Function finalConnect()
Set ORA_SE = Nothing
getTableList
Set ORA_DB = Nothing
End Function

Sub getTableList()

Const strTableListSheetName As String = "TableList"
On Error GoTo BookFound_Err
Call initConnect

Dim sqlBuff As String
sqlBuff = sqlBuff & " SELECT A.TABLE_NAME"
sqlBuff = sqlBuff & " ,RTRIM(C.COMMENTS) AS TABLE_COMMENTS"
sqlBuff = sqlBuff & " ,A.COLUMN_NAME"
sqlBuff = sqlBuff & " ,RTRIM(B.COMMENTS) AS COLUMN_COMMENTS"
sqlBuff = sqlBuff & " ,A.DATA_TYPE AS COLUMN_TYPE"
sqlBuff = sqlBuff & " ,(CASE WHEN A.DATA_TYPE = 'NUMBER' THEN " _
& "A.DATA_PRECISION ELSE A.DATA_LENGTH END) AS COLUMN_LENGTH"
sqlBuff = sqlBuff & " ,A.DATA_SCALE AS COLUMN_SCALE"
sqlBuff = sqlBuff & " ,DECODE(D.CONSTRAINT_NAME,NULL,'','P') AS ISKEY"
sqlBuff = sqlBuff & " ,DECODE(A.NULLABLE,'N','Y','') AS NOTNULL"
sqlBuff = sqlBuff & " ,A.COLUMN_ID"

sqlBuff = sqlBuff & " FROM USER_TAB_COLUMNS A "
sqlBuff = sqlBuff & " INNER JOIN USER_COL_COMMENTS B"
sqlBuff = sqlBuff & " ON A.TABLE_NAME = B.TABLE_NAME"
sqlBuff = sqlBuff & " INNER JOIN USER_TAB_COMMENTS C"
sqlBuff = sqlBuff & " ON A.TABLE_NAME = C.TABLE_NAME"
sqlBuff = sqlBuff & " AND A.COLUMN_NAME = B.COLUMN_NAME"
sqlBuff = sqlBuff & " LEFT JOIN USER_CONSTRAINTS E"
sqlBuff = sqlBuff & " ON B.TABLE_NAME = E.TABLE_NAME"
sqlBuff = sqlBuff & " AND E.CONSTRAINT_TYPE = 'P'"
sqlBuff = sqlBuff & " LEFT JOIN USER_CONS_COLUMNS D"
sqlBuff = sqlBuff & " ON D.TABLE_NAME = E.TABLE_NAME"
sqlBuff = sqlBuff & " AND B.COLUMN_NAME = D.COLUMN_NAME"
sqlBuff = sqlBuff & " AND D.CONSTRAINT_NAME = E.CONSTRAINT_NAME"
sqlBuff = sqlBuff & " ORDER BY "
sqlBuff = sqlBuff & " C.TABLE_TYPE " 'TABLE VIEW
sqlBuff = sqlBuff & " ,A.TABLE_NAME "
sqlBuff = sqlBuff & " ,A.COLUMN_ID "

Set myRs = ORA_DB.DbCreateDynaset(sqlBuff, 0)
Dim iLineOutput As Integer
iLineOutput = 1
While Not myRs.EOF
chekAddSheet (strTableListSheetName)
For iField = 0 To myRs.Fields.Count - 1
ThisWorkbook.Sheets(strTableListSheetName).Cells(iLineOutput, iField + 1).Value = myRs.Fields(iField).Value
Next
iLineOutput = iLineOutput + 1
myRs.MoveNext
Wend
myRs.Close
Call finalConnect
Exit Sub
BookFound_Err:
Call finalConnect
MsgBox Error
End Sub 参考技术C vb6.0写的,810行,10000多个字,百度发不了
功能:
建立文件夹,创建数据库，显示、添加、删除、修改、查找数据，表格，排序，导出为电子表格。
支持模糊查询、任意字段组合查询
10分不够. 至少11分
QQ追问

你QQ多少 我加你。。。或者你发我邮箱里[e-mail]

追答

2472526123

vb编写学生基本信息实现access数据库的增删改查

这个代码怎么写，真心不会，谢谢，实现增删改查，连接access数据库，谢谢，坐等。

1）首先需要用Office软件中的Access软件建立一个学生基本信息数据库。表中新建几个表，可以是学生名册表，学生各专业课程分数登录表等等。

2）VB新建数据工程，此时VB6集成调试环境左边工具箱内已加载了有关数据库编程必须的控件。

3）然后在FORM1窗体中添加ADO数据控件，右键-ADODC1控件属性页-使用连接字符串，选生成，在提供者选项中选MICROSOFT jet 4.0 OLE DB Provider,然后按要求连接数据库等。在ADODC1控件属性页使用连接字符串空白文本窗口中就有一长串字符串，注意该字符串可复制到程序代码用于编程。

ADODC1控件属性页的数据源内有命令文本（SQL）编写窗口可编写SQL查询语言。该窗口的SQL语句可复制到程序代码用于编程。

4）可以将SQL查询语句赋值给ADO数据控件的RecordSource属性来达到添加、删除、修改或查询。

5）数据的输入、修改等可灵活应用文本框或数据表格控件与ADO数据控件通过代码绑定。

6）想使用ADO数据对象，也可将ADO数据控件所写的代码较方便的移植给ADO数据对象。

典型的ADO数据控件的数据连接和查询代码：

Private Sub Command4_Click()
    Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\\Program Files\\Microsoft Visual Studio\\VB98\\BIBLIO.MDB;Persist Security Info=False"
    Adodc1.RecordSource = "select * from Authors where Author=\'Jacobs_Russell\'"
    Adodc1.Refresh
    Set DataGrid1.DataSource = Adodc1
End Sub

典型的数据对象代码：

Private Sub Command11_Click()
    Dim cn As New ADODB.Connection \'定义数据库的连接
    Dim rs As New ADODB.Recordset
    Dim sql As String
    sql = "select * from guzhang_sj" \' where madanhao=\'1\'"
    cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\\wd.mdb;Persist Security Info=False"
    cn.Open
    rs.CursorLocation = adUseClient
    rs.Open sql, cn, adOpenDynamic, adLockOptimistic
    Set MSHFlexGrid1.DataSource = rs
    rs.AddNew
    rs.Fields(0).Value = "14"
    rs.Update
End Sub 参考技术A 1、连接ACCESS
set db=Server.CREATEOBJECT("ADODB.CONNECTION")
DBPath = Server.MapPath("<数据库路径及名称>")'最好放在同一路径下
db.Open "driver=Microsoft Access Driver (*.mdb);dbq=" & DBPath
set rs= Server.CreateObject("ADODB.RecordSet")
rs.open "select * from <表名>&"'",db
2、将控件和数据表绑定
3、分别在添加、删除、更新、及那几个移动数据指针的按钮上添加命令：rs.append,rs.delete rs.update,rs.bof,rs.eof,rs.movenext,rs.MovePrevious本回答被提问者采纳 参考技术B

我这里有个类似的程序，你修改一下就可以了。。   见附件。。。

追问

我看了，我用vs2010vb做的界面，打不开啊

追答

VB6.0。。。

追问

我知道了，2010打不开，需要怎么才能打开，谢谢，我是个小白

追答Dim cnn As New ADODB.Connection        
Dim rs As New ADODB.Recordset        
Dim cmd As New ADODB.Command        
Private Sub Form_Load()
  cnn.Open "Driver=Microsoft Access Driver (*.mdb);DBQ=" & App.Path & "\\db_kfgl.mdb" 
  Set cmd.ActiveConnection = cnn         
  cmd.CommandText = "select * from kf where 房间号='2301'"    
  cmd.CommandType = adCmdText        
  cmd.CommandTimeout = 15          
  Set rs = cmd.Execute           
  MsgBox rs.Fields("房间号")
End Sub

只能用VB6.0打开

 

这是查找的代码，我的附件中没有的

 直接复制为什么中文会乱码