Dim MyTable As TableDef, MyField As Field
Dim MyDatabase As Database
Dim MyTable1 As TableDef, MyField1 As Field
Set MyDatabase = CreateDatabase(App.Path + "\Trade.mdb", dbLangGeneral, dbEncrypt)
Set MyTable = MyDatabase.CreateTableDef("DIP")
Set MyField = MyTable.CreateField("APPLNAME", dbText, 100) '?ヘ?
MyTable.Fields.Append MyField
Set MyField = MyTable.CreateField("SERVERNAME", dbText, 15) '狝?竟?
MyTable.Fields.Append MyField
Set MyField = MyTable.CreateField("LOGONNAME", dbText, 15) '?誹?ノ?
MyTable.Fields.Append MyField
Set MyField = MyTable.CreateField("PASSWORD", dbText, 15) '?誹?
MyTable.Fields.Append MyField
Set MyField = MyTable.CreateField("DATANAME", dbText, 15) '?誹??
MyTable.Fields.Append MyField
'这里怎么换行写下一个行数据.感谢?
MyDatabase.TableDefs.Append MyTable
'MyDatabase.NewPassword "", "allway"
MyDatabase.Close
Dim MyDatabase As Database
Dim MyTable1 As TableDef, MyField1 As Field
Set MyDatabase = CreateDatabase(App.Path + "\Trade.mdb", dbLangGeneral, dbEncrypt)
Set MyTable = MyDatabase.CreateTableDef("DIP")
Set MyField = MyTable.CreateField("APPLNAME", dbText, 100) '?ヘ?
MyTable.Fields.Append MyField
Set MyField = MyTable.CreateField("SERVERNAME", dbText, 15) '狝?竟?
MyTable.Fields.Append MyField
Set MyField = MyTable.CreateField("LOGONNAME", dbText, 15) '?誹?ノ?
MyTable.Fields.Append MyField
Set MyField = MyTable.CreateField("PASSWORD", dbText, 15) '?誹?
MyTable.Fields.Append MyField
Set MyField = MyTable.CreateField("DATANAME", dbText, 15) '?誹??
MyTable.Fields.Append MyField
'这里怎么换行写下一个行数据.感谢?
MyDatabase.TableDefs.Append MyTable
'MyDatabase.NewPassword "", "allway"
MyDatabase.Close
解决方案 »
- datagrid显示多字段问题,高手帮忙!
- 关于窗体的问题,各位高手可以进来看看,有道理都给分
- datagrid应用
- winsock 为什么不能连接internet上的两台机子?
- VB启动.chm格式帮助文件的问题?
- spread控件上的action是什麼意思
- vb自带的datareport能否规定打印纸大小?
- 怎样用winsock建立服务器,我lisen之后等待连接,怎么总是连接不成功呢?
- 这个问题对您来说应该是简单的
- ado连接。 请帮我看看,这里哪有错啊????
- 怎样使子窗体在父窗体的屏幕中心显示 并且是设计时的大小
- 一个颜色数组PicData(1 to width,1 to height) as RGBQUAD,如何快速得到其中使用最多的前256种颜色啊?
我想在同一表内写多行数据。如1楼所示,只能写一行。
顶上去