求制作CSDN数据库需要制作几张表
制作CSDN数据库需要制作几张表 --------------------编程问答-------------------- 你要做什么数据库呀?存贴子? --------------------编程问答-------------------- 可以看下我写的文章http://blog.csdn.net/xiaoyao961/article/details/6762423
'〓〓〓〓〓〓〓〓〓〓OpenAccess函数相关定义声明等 Start--------------------编程问答--------------------
Public Conn As New ADODB.Connection
Public HidErr As Boolean
Public RS As New ADODB.Recordset
Public comm As New ADODB.Command
'〓〓〓〓〓〓〓〓〓〓OpenAccess函数相关定义声明等 End
'┏〓〓〓〓〓〓〓〓〓 OpenAccess,start 〓〓〓〓〓〓〓〓〓┓
'[详介]:
'函数注释:
'[简介]:
'打开ACCESS数据库,可设定登陆的密码
Function OpenAccess(Mdbfilepath As String, Optional Mdbpassword As String, Optional usemdw As Boolean) As Boolean
'VB源码,帮你写函数,帮你写代码,帮你写模块,帮你设计软件
'--需要什么函数或功能,可以联系我。
'版权所有,请保留作者信息.QQ:1085992075
'如需商业用途请联系作者
On Error GoTo err
Dim ConnStr As String
Conn.ConnectionTimeout = 999999999
ConnStr = "Provider=MSDASQL.1;Persist Security Info=false;User ID=sa;Extended Properties=DRIVER=Microsoft Access Driver (*.mdb);"
If usemdw Then ConnStr = ConnStr & "DBPROP_JETOLEDB_SYSDBPATH=" & Chr(34) & "F:\PROGRA~1\MICROS~2\OFFICE\SYSTEM.MDW" & Chr(34) & ";user=admin;pass=abc;"
ConnStr = ConnStr & "DBQ=" & Mdbfilepath & ";Password=" & Mdbpassword
Conn.open ConnStr
OpenAccess = True
Exit Function
err:
If Not HidErr Then
MsgBox err.Number & vbCrLf & err.Description
End If
End Function
'┗〓〓〓〓〓〓〓〓〓 OpenAccess,end 〓〓〓〓〓〓〓〓〓┛
我擦,2楼的意思是说CSDN的数据库是access!
我路过,啥也不说了 --------------------编程问答-------------------- CSDN是sql server还是mysql 还是oracle,谁知道,我只是说你如果要建个类似格式的话要可以用ACCESS或SQL SERVER是进行测试 --------------------编程问答-------------------- 很晕。。。。 --------------------编程问答-------------------- sql server.
感觉上20几个表。 --------------------编程问答-------------------- 接触过DB2 存放了你们的银行账号 密码 余额 个人资料什么的。。。
补充:VB , 基础类