创建数据库:
private string CreateSQLPack(string SQLConnamd,string AddToQuery)
{
YYSQLString SQLPack; SQLPack.MSGID = "";
SQLPack.Unit = JHLB;
SQLPack.Name = JHXM;
SQLPack.PassWord = JHKL;
SQLPack.Style = ProgramName;
SQLPack.AddToQuery = AddToQuery;
SQLPack.SQLCommand = SQLConnamd; string str = SQLPack.MSGID+"+"+SQLPack.Unit+"+"+SQLPack.Name+"+"+SQLPack.PassWord+"+"+SQLPack.Style+"+"+SQLPack.AddToQuery+"+"+SQLPack.SQLCommand;
return str;
}
private string CreateSQLPack(string SQLConnamd,string AddToQuery)
{
YYSQLString SQLPack; SQLPack.MSGID = "";
SQLPack.Unit = JHLB;
SQLPack.Name = JHXM;
SQLPack.PassWord = JHKL;
SQLPack.Style = ProgramName;
SQLPack.AddToQuery = AddToQuery;
SQLPack.SQLCommand = SQLConnamd; string str = SQLPack.MSGID+"+"+SQLPack.Unit+"+"+SQLPack.Name+"+"+SQLPack.PassWord+"+"+SQLPack.Style+"+"+SQLPack.AddToQuery+"+"+SQLPack.SQLCommand;
return str;
}
解决方案 »
- C# 一个窗体的用不同的按钮触发,返回的内容保存到不同的变量里
- 组合算法
- google提供公交查询API吗?
- c#开发的winform 程序如何在不安装.NET Framework 的系统中运行
- winform 中如何画饼图,急急!
- 如何写软件的技术手册\维护手册啊?解决马上给分,谢谢
- 在Web窗体中怎样使动态添加的控件显现出来?
- 我想把XP打上SP1,可安装时,总出现“安装语言与系统语言不同”,用了简体的,繁体的,英文的都不行,怎么办
- 关于excel数据导入sqlserver时发生的记录唯一性问题
- 检测一个字符串是否存在,用什么技术比较好?
- Private m_rect As Rectangle这句代码用c#怎么写
- 在c#中對某一工程進行編譯時出現如下錯誤:
'Create Access Database at Runtime1)Set a reference to the Microsoft DAO 2.5/3.5 compatibility (Project-> Reference->)2)copy the following code in a new project 3) Call the procedure "Create_database" in the form_load4) A database is created with one table. Similarly add as many table as u want to the database'Procedure: To Create a Database at runtime
Sub Create_Database()
Set ws = DBEngine.Workspaces(0) 'set the DB engine workspace
Set DB = ws.CreateDatabase(App.Path & "\Sampledb.mdb", dbLangGeneral) 'createdatabase
Set DB = ws.OpenDatabase(App.Path & "\Sampledb.mdb") 'open database
Create_CardHolder_Table 'call create table
MsgBox "DB Successfully Created!!"End Sub'Procedure: To create a table at runtime
Public Sub Create_CardHolder_Table()Dim i As Integer
'------Cardholder--------------
Dim TDCardHolder As TableDef 'obj for tabledef
Dim FLDcardHolder(7) As Field 'obj for fields
Dim CardIDIndex As Index 'obj for index
Dim CardIDFLD As Field 'obj for filed to set the index for a field''------------Create Cardholder Table--------------------
'create a table
Set TDCardHolder = DB.CreateTableDef("Cardholder")
'create a field 'ID' of Text datatype with the filed size of 8
Set FLDcardHolder(0) = TDCardHolder.CreateField("ID", dbText, 8)
'set required as true as this is Primary key FLDcardHolder(0).Required = True
'set allow zero lenghth to false
FLDcardHolder(0).AllowZeroLength = False
'Similarly do for other fields
'datatype can be dbtext for text fileds
'dbdate for date fileds
'dblong for long datatype etc.
'check the filed type in msdn help for more datatypesSet FLDcardHolder(1) = TDCardHolder.CreateField("Name", dbText, 25)
FLDcardHolder(1).Required = True
FLDcardHolder(1).AllowZeroLength = False
Set FLDcardHolder(2) = TDCardHolder.CreateField("DateofIssue", dbDate)
FLDcardHolder(2).Required = False
Set FLDcardHolder(3) = TDCardHolder.CreateField("Gender", dbText, 6)
FLDcardHolder(3).Required = True
FLDcardHolder(3).AllowZeroLength = False
Set FLDcardHolder(4) = TDCardHolder.CreateField("DateofBirth", dbDate)
FLDcardHolder(4).Required = True
Set FLDcardHolder(5) = TDCardHolder.CreateField("Address", dbText, 60)
FLDcardHolder(5).Required = False
FLDcardHolder(5).AllowZeroLength = True
Set FLDcardHolder(6) = TDCardHolder.CreateField("Pincode", dbText, 6)
FLDcardHolder(6).Required = False
FLDcardHolder(6).AllowZeroLength = True
Set FLDcardHolder(7) = TDCardHolder.CreateField("Phone", dbText, 12)
FLDcardHolder(7).Required = False
FLDcardHolder(7).AllowZeroLength = True
'append all fields to the table
For i = 0 To 7
TDCardHolder.Fields.Append FLDcardHolder(i)
Next i
'create an index for the filed 'ID'
Set CardIDIndex = TDCardHolder.CreateIndex("ID")
CardIDIndex.Primary = True 'set primary key as true for making it as primary key
CardIDIndex.Unique = True 'set unique as true for making any filed as unique 'append the index filed to the table's index
Set CardIDFLD = CardIDIndex.CreateField("ID")
CardIDIndex.Fields.Append CardIDFLD
TDCardHolder.Indexes.Append CardIDIndex
'append the table to the database
DB.TableDefs.Append TDCardHolder
'reset all reference variables to nothing
Set CardIDIndex = Nothing
Set CardIDFLD = Nothing
Set TDCardHolder = Nothing
For i = 0 To 7
Set FLDcardHolder(i) = Nothing
Next i
End Sub
ID.AllowDbNull=false;
ID.ReadOnly=false;
ID.AutoIncrement=true;
ID.AutoIncermentSeed=100;
DataColumn NAME=new DataColumn("NAME",typeof(string));
NAME.AllowBDNull=false;
NAME.Unique=true;
不知代码应该怎么写?
不知代码应该怎么写?